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TOUS DES MARCH ANDS DE TAPIS ! 

H6, ho, y a pas que nous qui cassons les prix : regardez voir un peu les remises qu'ils nous font en un an, les chics 
constructeurs-importateurs-grossistes de beaux ordinateurs tout neufs ! 



TRES BEAU, PAS CHER 

"Une remise ? Un rabais ? 
Quelle horreur I Pas de ga chez 
nous I Vous pouvez acheter en 
confiance, Monsieur, nous ven- 
dons au plus juste prix et 
jamais, au grand jamais, nous 
ne baisserons d un centime 
cette magnifique machine ! 
D'ailleurs TIBMPCSTRAD ne 
baisse jamais ses prix. Qa va 
meme augmenter pas plus tard 
que dans pas longtemps. Je 
vous fais un paquet cadeau ou 
vous la mangez tout de suite ?" 
Combien d'entre vous ont 
achate leur ordinateur dans ces 
conditions ? Et combien d'entre 
vous ont vu leur magnifique 
becane baisser de 300, 400, 
1 .000 francs ou plus, cinq minu- 
tes apres etre sortie de la bou- 
tique ou ils venaient de faire 
leurs achats. 

UNE MODE SYMPA 

C est Texas qui a lance la mode 
en 1984 : de 3.4O0 francs prix 
d'ami, le TI99/4A plafonne a 
2.400 francs huit jours apres, a 
1.500 balles un mois plus tard 
et c'est tout juste si on ne vous 
en fait pas cadeau pour I'achat 
d'une cassette vierge a la fin de 
la meme annee. Texas avait au 
moins une excuse : if sortait le 
premier et en courant de ce 
marche de dingue qui le menait 
inexorablement vers la faillite. 
Mais la mode etait lancee et 
bien lancee : depuis cette date, 
la totalite des constructeurs se 
battent a coup de remise, de 
rabais, de baisse de prix spec- 
taculaire, de baissage de cuiotte 
mqnstre quand ce n'est pas de 
braderie pure et simple. 

EXAGERATION 

Je vous vois venir : 
I'HHHHebdo ex age re, comme 
d'habitude t Ah, oui ? Ben 
voyons done voir le joli petit 
tableau qui orne ce magnifique 
article. Vous voyez les noms de 
la premiere colonne ? Ce n'est 
pas Machin ou True ou Inconnu- 
au-Bataillon mais des marques 
bien connues et non des moin- 



dres. Tous des bradeurs I Tous 
des casseurs de prix I Pire que 
le Club Hebdogiciel, les souks 
marocains et les associations 

de fonctionnaires reunis. 

ILS SONT VENUS 

Et ces messieurs n'y vont pas 
de main morte : ca va jusqu'a 
plus de 80% de rabais, comme 
ca, sans sourciller, sans perdre 



vont en faire les frais. 

ILS SONT TOUS LA 

II y a Amstrad qui baisse ses 
prix pour le plaisir de faire chier 
le monde alors qu'il n'y a plus 
guere que lui qui vend encore 
des ordinateurs. Amstrad a une 
excuse, son patron -Alan Sugar 
• veut devenir le marl re du 
monde. Y parviendra-t-il ? 
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la place du Calife IBM mais ca 
n'a pas marche. Du tout. 

II y a I' Atari d'avant et d'apres 
Tramiel. Avant e'etait tout nul 
done on brade. Apres c'est deja 
brade mais on peut brader 
encore. D'ailleurs on est les 
seuls a brader sans honte. On 
en est meme tier. 

II y a Canon avec un petit 29 % 



ce que ca doit etre agreable de 
se prendre 29.000 balles dans 
le dos. 

II y a Commodore qui nous fait 
de tres jolis rabais et qui n'anive 
pas pour autant a remonter la 
pente. II faut dire que ca doit 
etre dur a comprendre que plus 
pa baisse, moins c'est plausible 
et que si ca ne baisse pas, ca 
ne se vend pas. Je repete ou on 




ni sa dignite, ni son costume 
cravate trois pieces bien 
repasse. 

Je vous laisse contempler cet 
eloquent tableau et - comme 
d'habitude • je vous retrouve 
tout de suite apres pour faire 
quelques petits commentaires 
tres amusants et parfaitement 
desagreables pour ceux qui 



II y a Apple qui commence a 
vendre 10.000 francs ce qui en 
vaut 3.000 alors qu'il le vendait 
15.000 jusqu'a present. II faut 
bien payer les campagnes de 
pub et les bouquins de Gassee 

II y a Apricot qui nous fait un 
petit 35 % en moins d'un an. Lui 
aussi, il voulait devenir Calife a 



et un gros vilain 71 % sur son 
gros vilain MSX. (Voir a ce mot). 

II y a Casio qui fait un tres joli 
score : 29.000 balles de diffe- 
rence en un peu plus d'un an 
pour son FP 6000. Qu'est-ce 
qu'ils doivent etre tiers les pos- 
sesseurs de la premiere heure 
de cette jolie machine. Ou'est- 



a tout compris ? Tiens, j'ai 
oublie I'Amiga dans le tableau 
mais c'est pas grave, il aura 
sOrement baisse d'ici la sortie 
du journal. Reportez-vous a 
votre argus habitual. 

Ah, les Compatibles PC. Qa 
c'est de la belle chute et c'est 
pas fini, le puits n'a pas de fond. 



IBM des complexes ? Business 
is business, my friend Vous 
avez votre fausse carte 
d'etudiant ? 

Matra la fusee I Moins d'un an 
pour depasser les 84 % avec 
ses merveilleux Alice. Et il en 
reste, c'est pas fini, y a pas 
qu'Ariane qui se casse la 
gueuie I 

Mama mia ! Olivetti 23 % Dam- 
ned I Tandy, 49 % pour la 
meme becane. Tiens, Tandy, le 
marginal, le cache, Tandy qui 
n'aime pas qu'on parie de lui et 
qui envoie les journalistes sur 
les roses : ils doivent etre heu- 
reux les clients de Tandy, sur- 
tout les utilisateurs de M12 assis 
sur 1.750 pieces de 10 balles. 

La France aux Franpais I 
Thomson, Exelvislon, Goupii, 
Hector, pa brade moyen. Ca 
vend moyen. C'est moyen. Tres 
moyen. 

Dragon, Lansay, Lynx, MSX 
divers, e'etait tres cher, c'est 
plus cher du tout et tout le 
monde s'en tout. 

L'image de marque d'enfer de 
Sony ne lui a pas servi a autre 
chose qu'a faire - pour une fois 
- comme lout le monde : Plouf ! 



Yamaha et 

Badaboum I 



la zizique ? 



Le bide du budget de la campa- 
gne de pub tele pour le VG 5000 
n'a pas refroidi Philips. II remet 
pa avec son MSX 2 qui se paye 
le luxe de baisser le jour meme 
de sa sortie. Record battu ! 

PARALLELE 

Vous voulez un petit ieu amu- 

sant pour finir ? Essayez 

Suite page 25 

* Traduction francaise : Notre der- 
nier ordinateur, produit sophistique 
Issu de la haute technologie etabo- 
ree par nos bureaux d 'etudes, bene- 
tide d'un rapport quatite/prix parti- 
culierement attrayant. 



BIDOUILLE GRENOUILLE 

Ou comment tricher, modifier, trorfiquer, mogoulller, bidouiller et grenouiller avec 
les logkiels du monde entier. Mais dans la legalite, au moins ? Of course, mon Gene- 
ral ! La lot 85-600, litre V. article 47, du 3 juillet 1985 outorise une copie de sauve- 
garde, et si por molheur vous trouvez dans cette rubrique la moniere de deplomber 
un logiciel, c'est evidemment pour vous permettre de faire cette unique sauvegarde, 
Vous etes prie de replomber tout de suite opres. Lire page 24 



FORMATION A L'ASSEMBLEUR 

Les amateurs eclaires vous attendent en page 33 

C'est nouveau, ca vient de sortir : 
L'actuallte de la micro-informatique pages 11.12.13 



CONCOURS PERMANENT* 

Votre programme, non content de vous rapporter 1.000 francs par page 
publiee, peut vous rapporter 20.000 francs chaque mois ou un voyage en 
Californie pour deux, chaque trimestre. 
Reglement en page interieure. 



DEULIGNEURS les faineants sont en page 16 CINOCHE-TELOCHE pages 2, 35. 



INFO BD : toute l'actualite en page 23 



DES PROGRAMMES POUR VOTRE ORDINATEUR : 

AMSTRAD • APPLE lie ET lie • CANON X07 • CASIO FX 702 P • 

COMMODORE 64 ET COMMODORE VIC 20 • EXEL VISION EXL 100 • 

MSX et compatibles • 0RIC 1 ET ATM0S • SINCLAIR ZX 81 ET SPECTRUM • 

TEXAS TI99/4A • THOMSON T07, TO7/70 ET M05 • 






Ceci est un edito destine tout specialement 
a Henri Krasucki, Edmond Maire et Andre 
Bergeron. Pasque si ces trois-la pouvaient 
nous lancer une maxi-greve pour le 26 juin, 
ga serait une sacree riche idee vu que ga 
sera le jour de la nouvelle Fete du 
Cinema I 

Eh oui, chers amis cinephiles, c'est done 
jeudi prochain qu'il vous faudra a nouveau 
secher le bahut, vous (aire porter pale au 
boulot, sortir de vos tombes, huiler vos 
chaises roulantes et vos sonotones pour 
prendre d'assaut les charmantes caissie- 
res manucurees de vos salles preferees. 
Pratiquement, chaque spectateur qui 
acquittera le prix normal du premier billet, 



recevra en ©change un passeport qui lui 
permettra d'acceder a toutes les seances 
ulterieures de toutes les salles participan- 
tes, moyennant un franc par entree sup- 
plemental. Allechant nocon ? 
Une question dans la foule ? "Bonjour je 
suis Escape9G. pourriez-vous m'expliquer 
a quoi on reconnaitra une saile partici- 
pant© ?" C'est une question tres nulle a 
laquelle je reponds que ga sera ecrit sur 
la caisse de chaque cinema I Autre ques- 
tion ? "Oh toi, divin Jacq, pourrais-tu nous 
refiler quelques tuyaux pour faire de cette 
journee un moment exceptionnel ?" Bien 
sur, bien sur, pour jouir a plein de Cine- 
Aid, je vous conseille de vous enfiler "Fla- 
grant Desir", suivi de "Hitcher", suivi de 
"Voyage au bout de I'enfer". couronne par 
"After Hours" ou "Hannah etsesscBurs". 

Contents ? Oui ils sont contents et une 
assiette vide en est la preuve ! 

Jacq 



QUI TROP 
EMBRASSE 

de Jacques DA VILA 



mier long metrage de Jacques Davila. A 
partir des heurts et malheurs sentimentaux 
de deux femmes, Nathalie la rousse et 
Francoise la blonde, Davila brosse la 
palette de la mediocrite dans I'amour, des 
lachetes des hommes soi-disant moder- 
nes. Gare aux musiciens talentueux mais 
glandeurs et pessimistes, aux cadres 
dynamiques mais maniaques, aux gigolos 
deguises en jeune gens de bonne famille, 




avec Anne WIAZEMSKY (Nathalie), 
Tonie MARSHALL (Francoise), Andrzej 
SEWERYN (Marc), Michel GAUTIER 
(Christian), Christian CLOAREC (Jean- 
Francois) et Mlcheline PRESLE (tous 
tres, tres bien). 

Si un vent glace souffle sur votre couple, 
si votre copine decide de rompre, si votre 
Jules tire une tranche a se jeter du som- 
met du paillasson, ne vous desesperez 
plus et utilisez "SOS Manages". Le ser- 
vice coQte entre 20 et 35 francs et est 
inclus dans "Qui trop embrasse", le pre- 




aux aigris qui repartent chez leur maman 
a la premiere alerte. Et gare aussi aux 
nanas qui, a force de veilter a leur liberte 
hen qu'a eiie, en oublient toute spontaneite 



PLEINS 

FEUX SUR 

ARNOLD 



Bon voila t'y pas qu'on nous sert un Fes- 
tival Arnold Schwarzenegger (dorenavant 
je dirai Arnold tout court, je vais quand 
meme pas m'esquinter la sante a retrans- 
chre son nom tyrolien) pour I'arrivee de 
I'ete, initiative on ne peut plus judicieuse 
quand on connatt la rapidite de la bete en 
question a dechirer ses tee-shirts des qu'il 
fait un poil trop chaud pour ses biscotos 1 1 
En fait de Festival, on pourra "seulement" 
revoir ses trois films les plus marquants, 
a savoir Conan le Barbara, Terminator et 
Commando. 

Arnold "je n'ai rien aux dents" est devenu, 
en moins de quatre ans, Tune des plus 
grandes vedettes mondiales. De plus, 
parallelement a sa carriere d'acteur, ii a 
publie une tape© de bouquins sur le cul- 
turisme et comment s'en sortir vivant, et 
lance plusieurs entreprises dont les lan- 
gues fayotes nous disent qu'elles sont fie- 
ri ssantes. 

Meme si ses films ne brillent pas par leur 
originality, reconnaissons a Arnold le fait 
d'avoir insuffle un rien d'humour dans ses 
pectoraux et de savoir eviter les betises 
politico-morales (les Americains sont en 
danger et pourtant ils sont les meilleurs !) 
du genre qu 'affection nent Stallone ou 
Chuck Norn's. 



Arnold S. est ne le 30 
juillet 1947 a Graz, en 
Autriche, (la oil la croix 
gammee fait une 
entree sauvage dans 
le Top 50 politique) oil 
son brave popa est 
officier de police. De 
sante fragile (c'est 
meme pas une bla- 
gue I), il s'essaie, sans 
succes, aux sports 
d'equipe avant de trou- 
ver sa voie dans le cul- 
turisme. A 19 ans il 
remporte le litre de 
Monsieur Europe 
Junior. 

A 20 ans il part pour 
les States oil il mene 
de front (et de mus- 
cles) sa carriere body- 
buildee (quatre fois 
Monsieur Univers) et 
de lointaines etudes 
universitaires. 
En 1975 il abandonne 
la competition. Apres 
quelques tentatives 
discretes dans le cino- 
che sous le pseudo d'Arnold Strong (si, 
si !), il "eclate" dans le role epuisant de 
"Conan le Barbara" de John Milius en 
1981. Suivi, 3 ans apres (quel choc I) de 
"Conan le Destructeur". La meme annee, 
c'est "Terminator", re-triomphe public et, 
surtout, reconnaissance critique puisque 
le film obtient d'elogieuses iignes dans vos 
journaux preferes et le Grand Prix au Fes- 
tival d'Avoriaz. II revient alors a r heroic 




fantasy avec "Red Sonja" (Kalidor en 
France, ou Sonja est interpreter par Bri- 
git Nielsen, I'epouse de Stallone ! I). 
Enfin en 1985 il tourne "Commando", un 
ramassis d' ex plosions debiles et pseudo 
humoristiques. Passons, passons... Au 
dernieres nouvelles (cannoises) il serait en 
train de tourner au Mextque sous la direc- 
tion de John McTiernan ("Nomads"}, mais 
il parait que ga n'a rien a voir avec le foot... 



et tout humour dans leurs relations avec 
les mecs ! 

Evidemment tout ca fait un film un peu tris- 
tounet, tres lent (que des plans fixes, 
quelle horreur I) et un peu fourre-tout. 
N'empeche on rit souvent des maladres- 
ses des personnages sans se rendre 
compte qu'ils vous ressembtent un peu 
trop pour que ga soit totalement innocent. 
Et quand on s'apergoit de la supercherie, 
on s' evade rapidement du cours de I'his- 
toire pour alter chahuter ses propres inter- 
rogations planquees dans quelques neu- 
rones subversifs. Helas le gros hie la- 
dedans c'est que Davila n'a mis aucune 
reponse a notre disposition; il nous met le 
cadeau empoisonne dans les mains et il 
se tire en courant. On I'ouvre et on decou- 
vre un miroir deformant un peu sale. 
Sympa mais a quoi ga sert ?... 



LE DIABLE 
AU CORPS 

de Marco 
BELLOCCHIO 



mais surtout folle tout court et a lier ! Une 
psychanalyse menee de main de maftre 
par le pere d'Andrea (il faut avoir vu la cari- 
cature du pere psychanalyste pour le 
croire I) n'a evidemment rien donne; le 
seul salut de la belle damnee reside, bon 
sang mais c'est bien sur, dans les bras du 
puceau. Les bras et la queue, puisque Bel- 
locchio ose nous montrer une foliation live 
que fait Giulia a Andrea qui, du coup, ne 
pipe plus mot. On nous a tenement pompe 
['air avec cette scene (c'est Detmers qui 



strictement hen ! Andrea voit Giulia, il cra- 
que, il la suit, ils se parlent, ils font de la 
barque ensemble, ils baisent et ils baisent. 
La belle-mere de Giulia est furax, les 
parents d'Andrea itou, mais ils abdiquent 
en attendant que ga se tasse. Oui mais 
voila, ga se tassera pas. Rn du film. 
Helas pour mon envie de me barrer au 
bout de dix minutes, Maruschka Detmers 
est la et bien la. belle, salope, fragile, cas- 
see, envoutee et envoQtante. Elle est qua- 
si ment parfaite dans le role, peut-etre trop 
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avec Maruschka DETMERS (Giulia) et 
Federico PITZALIS (Andrea) 

Lyceens. ce film est pour vous I "Le Dia- 
blo au corps" donne, en effet, un ultime 
tuyau pour reusair son bac : tomber amou- 
reux d'une plus vieilie que soi et coucher 
avec, tout le temps et partout, pendant que 
le (futur) mari n'y est pas encore ! Les pas- 
sions impossibles, haletantes et desespe- 
rees, ont toujours beaucoup fait baver les 
metteurs en scene; ah, le beau theme eter- 
nel de la raison consumee par les elans 
du cceur ! I Quoiqu'a force il devienne de 
plus en plus difficile de faire dans la nou- 
veaute et d'eviter les cliches "barbe-a- 
papa" (kitsch et collants). Bellocchio a, lui, 
decide de s'en sortir en tablant sur la 
surenchere, de rechauffer unevieille mar- 
mite grace au soufre et au stupre : il 
adapte done le piteux roman de Radiguet 
"Le Diable au corps" au cadre decadent 
de I'ttalie d'aujourd'hui. Le mari se trans- 
forme en terroriste repenti, I'amant 
(Andrea) devient lyceen et elle (Giulia), oui 
elle-meme, devient une arriviste carrement 
folle. Non seulement folle de son corps et 
du corps des beaux ephebes romains, 




I'a imposee, sera-t-elle censures ou pas ?) 
qu'on est forcement degu. D'abord on ne 
voit que le debut de la pipe (c'est un peu 
court, nooon ?) et Bellocchio est trop 
enchaine par son histoire pour que la 
derive soit reeltement bandante. Et la ou 
y a de la chatne, y a pas de plaisir ! 
Pour ce qui est du rests (en gros les deux 
heures du film), difficile de dire du mal de 
ce qui s'y passe... puisqu'il ne s'y passe 



pre visible dans ses dechirements qui n'en 
finissent plus. La malheureuse possede le 
don rare de ne jouer que dans des atroci- 
tes (La Pirate, Carmen de Godard, La ven- 
geance du serpent a plumes) et pourtant 
je fonds d'estime pour elle. Intelligente et 
racee, elle a tout apporte a Bellocchio qui 
en a fait un gachis soporifique et insuppor- 
table I C'est bien la seule performance du 
film! 



CAMORRA 

de Linn 
WERTMULLER 




avec Angela MOLINA (Annunzfata), 
Francisco RABAL (Guaglione), Harvey 
KEITEL (Frankie) et Daniel EZRALOW 
(Toto) 

Le brave people italien est bien a plaindre : 
non seulement ses rues ne sont pas sOres, 
mais en plus il n'a pas les croque-mitaines 
Pasqua et Pandraud pour terroriser les 
suspects que nous sommes tous, parait 
il ! A Naples, par exemple, Pasqua ferait 
un gros bide puisque la loi du silence impo- 
see par la Camorra (la Maffia locale) inter- 
dit toute delation a la police sous peine de 
n'avoir plus jamais r occasion de voir le 
jour ! Les flics se contentent de cultiver 
leur look de tombeur en uniforme et de se 
pavaner sous le soleil, ignorants qu'ils sont 
des trades en tous genres qui leur passent 
sous le nez... A moins que leur cecite ne 
soit alimentee par quelques pots de vin 
enivrants ! ! 

La Camorra veilie sur tout, protege la 
veuve et le petit commergant et venge ses 
freres "victimes" de la justice. Le tout en 
©change de quelques menus "services" 
ou d'une petite cotisation mensuelle... Tout 
baigne done, jusqu'a ce que les jeunes 
mafiosi decident d'introduire la came a 
Naples, et ce, contre I'avis des "parrains", 
respectueux de la sante de tous. Et la dro- 
gue, c'est bien connu, c'est de la merde 
et va semer un bordel incroyabie dans la 
villa : les propres enfants des "camorreux" 
meurent d'overdose, les sommes en jeu 
reveillent la guerre des clans et la police 
retrouve son agressivite. 
"Camorra", le film, commence la, alors 
que r heroine circule a plein tube et trouve 
de plus en plus d'adeptes, de plus en plus 
jeunes. Dans la pension "Broadway" est 
assassine Baba, trafiquant notoire, qui 
venait relever les compteurs d'Annunziata, 
une ancienne pute. Une certitude : per- 
sonne n'a rien vu, rien entendu et un seul 
indice : une seringue plantee dans les 
couilles du mort. Une signature tout a fait 
ohginale qui laisse la maison poulagas fort 
perplexe et neanmoins sur les dents ! 
Annunziata repete a la police, puis a Gua- 
glione, le patnarche de la famille Rocco 



(dont Baba etait un des fils) qu'elle ne sait 
rien. Personne ne la croit, mais, bon, y a 
pas de preuves alors... Alors I'affaire se 
tasse doucement jusqu'a ce que d'autres 
seringues soient retrouvees dans d'autres 
couilles d'autres macchabees. L'affaire se 
corse, comme on dit dans la "famille" mais 
impossible de trouver la plus intime trace 
de coupable. 

Car evidemment la "vendetta" n'est pas 
le fait des mafiosi mais de celfes qui, 
d'habitude, ne font qu'obeir aux males et 
faire la popote. Ne touchez jamais a un 
gosse napolitain, sa mere vous abattrait ! 
Si je vous raconte "Camorra" dans le sens 
de la largeur (I'enquete policiere), c'est 
pour pas vous deprimer trop rapidement. 
Car en fait, dans le sens de sa tres peni- 
ble longueur (1h50 a se decrocher la 
machoire), le film n'est plus qu'un mines- 
trone indigeste et froid. C'est bien simple, 
on y trouve de tout : un amant bondissant 
qui remplit de ses cabrioles interminables 
les creux du suspense, un ex-mari brutal 
et delirant, un passage en revue ereintant 
des 1000 et une fagons de se fringuer en 




noir, plus les inevitables sauteries torrides ! 
On a beau tenter de se raccrocher au 
mystere de la seringue mal places, hen n'y 
fait : Una WertmuTler se tue (et nous tue) 
a caser ses tonnes de morale feminisante 
cucu-la praline au milieu des ruelles typi- 
ques avec-le-linge-qui-pend-partout 
Resultat : on ne croit plus a rien, ni aux cri- 
mes, nl a la douleur des meres I Un bien 
pietre bilan quand on a sous la main une 
brochette d'actrices aussi fascinantes, 
superbement menees par la flamboyante 
Angela Molina I 

J 'ose esperer, qu'a dire du mal de 
"Camorra", on ne me retrouve pas, a mon 
tour, le souffle coupe, une seringue piquee 
dans les attributs de ma virilite... 



CANON-WRITER 



De la plus belle plume de votre imprimante X-710, realisez 
de somptueux textes manuscrits ... 

Mathieu MARCIACQ 



CANON X07 
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EDITO 



SUITE DU 

N 139 LISTING 2 

0000-E3 E3 64 SB ES E3 BE 89 

0008-E3 E3 76 7A E3 E3 80 71 

0010-E3 E3 7E 7E E3 E3 BC 89 

0018-E3 E3 7D 7C E3 E3 80 8D 



0020-E3 E3 86 71 80 80 

Flchi*r : 194 

0000-82 81 82 82 83 83 80 81 

0008-7F 81 7E 80 7E 7E 7F 7E 

0010-81 70 82 7F 84 80 E3 E3 

0018-7A 8D E3 E3 81 7F 84 7E 

0020-E3 E3 81 76 80 80 

Fichitr : 1SS 



0000-82 81 82 82 83 83 80 Bl 

000B-7F 81 7E 80 7E 7E 7F 7E 

0010-81 7D 82 7F 84 80 E3 E3 

0018-7A 8A E3 E3 83 83 83 7D 

0020-E3 E3 81 76 80 80 

Fichivr : 156 

0000-82 81 82 82 83 83 80 81 

0008-7F 81 7E 80 7E 7E 7F 7E 



0010-81 7D 82 7F 84 80 E3 E3 

0018-7A 8A E3 E3 84 82 81 81 

0020-E3 E3 81 73 80 80 
Flchiar : 233 

0000-E3 E3 84 8A E3 E3 80 8A 

0008-87 80 E3 E3 79 7C E3 E3 

0O10-84 80 E3 E3 87 70 E3 E3 
0018-80 80 



LISTING 3 



DEFINTA-Z 

200 INITttl, 'CASi: * 

210 INPUT#1,A*:M0T0R:PRINTA*I ■ trnuv»':I 

FA«O"FICHIER"THEN210 

220 PRINT"0k" 

230 FORI-OT0100:NEXT 

240 IFINP(ttl)O253THENZ40 

230 A-INP(ttl) : IFA-OTHENEND 

260 PRINTCHR*(A) I 

270 IFINP(tll) O25STHEN270 

2B0 Pl-INP{*tl> :P2-INPlttl> :PT-256*P1*P2 

283 INITtt2,CHR*(A> ,PT 

Z90 F0RI-1T0PT 

300 A-INPfttl) :0UTtl2,A 

310 NEXT 

320 IFINPCN1I O253THEN320 

330 IFINPIH1X >233THEN320 

340 PRINT* Bon":Q0T0230 



LISTING 4 



1 INITttl, -CASO: ■iPRINTttl, "FICHIER" : MOTOR 

2 F0RI-0T01000:NEXTl:0UTttl,2S3 
10 F0RJZ-65T063+23 

20 A*-CHR*UZ> :G0SUB1000 

30 NEXT 

31 F0RJZ-ASC<'«')T0ASC("z"> 

32 0NERR0RG0T034 

33 INITtl4,CHR*(JZ) :G0T033 

34 RESUME36 

33 A*-CHR*(JZ) :G03UB1000 

36 NEXT 

40 DATA- •»■»",■. "»"K", ■#",■♦",■-•,■■', ■ 

/",■(",")■,"■" 

43 DATA'F", ■,",■ | ",■:",".", "1 ", "2* , "3" , " 

4","5","6","7","S","9","0" 

16 DATA"?" , " ! " , "2" , "N* 

47 RESTORE 

30 F0RJZ-1T03I!READA» 

60 GOSUBIOOO 

70 NEXT 

bo outhi,o:outhi,o:end 

ZOO INITttl, "CASI : ■ 

210 input*i,a«:motor:printa«i ■ trou«#":i 

FA*< >"FICHIER"THEN210 

220 PRINT'Ok" 

Z30 FORI«OT0100:NEXT 

Z40 IFINP(ttlK>233TMEN240 

230 A-INP(ttl) : IFA-OTHENEND 

260 PRINTCHR*(A) 1 : INIT*2,CHR*(A) 

270 IFINP(Hl)O233THEN270 

280 Pl-INP(ttl) :P2-INP(#1) : PT»236*P1+P^ 

290 F0RI-1T0PT 

300 A-INP(tll) : IFAOINP(H2)THEN8T0P 

310 NEXT 

320 IFINP(tm<>233THEN320 

330 IFINP(ttl) OZ33THEN320 

340 PRINT" Bon":G0T0230 

1000 OUTHl f ASC(AS) :PRINTA*| 

1010 INITK2.AS 

1020 PT-0:0NERR0RG0T02000 

1030 A=INP(#2J !PT-PT*1!G0T01030 

2000 RESUMEZ010 

2010 Pl=INT<PT/236) :P2-PT-P1*256 

2020 0UTttl,233:0UT#l,Pl:0UTttl,P2 

2030 INITK2,A* 

2040 F0RI-1T0PT: A-INP(H2> : OUTttl , A: NEXT 

2030 0UTHl,233:OUT#l,233 

2060 RETURN 



LISTING 5 



1 FONT*! 128) -"0, 0,248,8,40, 120,32,0 

2 POKE 186,20 

10 CLEAR4000:DEFINTA-Z 

11 Cl_S:LINEIN.PUT'Nam du +ichi»r : ->" 
I NO* 

20 DIMA*(2000) :F0RI»0T02000:A*(I)-- ■ : NE 
XT 

29 CLS 

30 ' 

40 G0SUB3000 

50 IFA*OCHR*(28)THEN90 

60 X-X+i: IFX-20THENY-Y+1SX-0 

70 ifyo4thenb0 

71 y-3:pt-pt+2o:locateo,3:print:locateo, 
3:fori-0t018:printa*(pt+i*60> i 

72 next:p0ke186,2i:printa«(pt+i+60) | ! p0k 

E186,20 

BO Q0T03O 

90 IFA*OCHR*I29>THEN140 

100 MV-0!X-X-1: IFX— 1THENX-19:Y-Y-1 

110 IFY— itheny-o:pt-pt-20:mv-i:ifpt<oth 

ENPT-O : x-o : Y-0 : MV-0 

120 IFMV-0THEN30 

130 L0CATEO,0:FORI-PTTOPT+78:PRINTA«(I> I 
:NEXT:P0KE1B6,Z1:PRINTAS<I> f :P0KE186,20 

131 GOT030 

140 IFA*OCHR*(31>THEN160 

130 Y-Y*l!G0T070 

160 IFA*-CHR* (30) THENY-Y-1 : MV-O: G0T01 10 



170 IFA*-CHR*( 1 1 ) THENPT-O: X-O: Y-0:G0TD13 



1 80 I F A*-CHR* (12) THENERASEA* : G0T020 

IBS IFA*-CHR*U7)THENRUN 

190 IFA*OCHR*(6)THENZ40 

200 FORI-EDTOOSTEP-l: IFASIIIO' "THENJ-I 

: i-o 

210 NEXT 

zzo j-j+i:pt-int{j/bo»*bo:z-j-pt:y-int(z 

/20> :X-Z-Y*20 

230 G0TO130 

240 IFA*OCHR*(23)THEN300 

Z30 FORI-EDTOOSTEP-l MFA*<I)-" "THENNEXT 

260 J-I 

270 INI T*»l ,NO*, J+ 1, "M":DELETENO*, "M": INI 

Tttl.NO*, J+l, "M" 

280 X7— 1!FORI-OTOJ 

2S1 X7-X7+1: IFX7-20THENX7-0 

282 A-ASC(A*(I> ) : IFA-12STHENA-13: IFA*(I+ 

1)-" "THEN1-H-U9-X7) :X7--1 

289 OUTttl, A: NEXT 

290 BEEP30,3!Q0TO30 

300 IFA*OCHR*(20)THEN370 
310 INITttl, NO*, , "M" 
313 X-O 

320 0NERR0RG0T0340 

321 I-O 

329 IFDU-lTHENG0SUB9000:DU-0 

330 A-INP(Nl) : IFA-13THENA-12B:DU-1ELSEIF 
A-OTHENA-32 

331 A*<I)-CHR*(A> : I-I+l!X-X*i: IFX-20THEN 
X-0:G0T0329ELSE329 

340 RE8UHE3SO 

330 onerrorgoto 

360 x-o:y-o:pt-o:ed-i:qotoi30 

370 ifa*ochr*(z2)then420 

380 pl-pt*y*20+x: fori-pltoed: a* ( i ) -a* < i + 

1) : next: ed-ed- 1 

390 l0catex,y!ifx-19andy-3theni-pl:g0t04 

10 

400 FOM-PLT0U8-X>*PLM3-Y)*20:PRINTA*( 

I)|:NEXT 

410 P0KE186,21:PRINTA*(I>1 :P0KE1B6,20:G0 

T030 

420 ifa*ochr*<18>then430 

430 pl-pt+x*y*2o:fori-edtoplstep-i:a*(i+ 

1)«A*< I > INfcXT: A*<PL)-" " 

440 ED-ED+i:G0T0390 

430 IFA*OCHR*tl)THEN470 

460 DR-1-DR:BEEP10,3:G0T030 

470 IFA*OCHR*(3)THEN99S 

4BO PL-PT+Y*20#X:F0RI-PLT0ED:A*(I)-" ":N 

EXT:ED-PL+1 

490 GOT0390 

995 IFDR-0THEN1000 

996 IFASC(A*}<650RASC(A«) >122THEN1000 

997 IFASCIA*) >90ANDASC ( A*X97THEN1000 
996 A-ASC t A*) : IFA<97THENA-A+32EL8EA-A-32 

999 A*-CHR*(A> 

1000 IFX+Y»20+PT>EDTHENED-X+Y*20*PT 
lOOZ IFA*-CHR*(13)THENA*-CHR*(12B) 

1003 P0KE186,2i:LOCATEX,Y:PRlNTA»l JP0KE1 
86, 20: A» (PT+ X+Y*20) -A* 
1008 IFA*-CHR*(12B)THENX-0:G0T0150 
1010 G0T060 

5000 p-screen(x.y) : ct-o: poke 186, 2 1 

5001 locatex,y:print-_"i 

3010 A*-INKEY»: IFA*0""THENS100 

3011 CT-CT+i:iFCT< >20THEN3010ELSECT-0 
3020 LOCATEX,Y:PRINTCHR*(P) | 

5030 A*-INKEY*: IFA*<>" "THEN5100 

5031 CT-CT + i: IFCTO20THEN5030ELSECT-0 
5040 G0T05001 

5100 locatex,y:printchr*<p> I :P0KE186,20: 

RETURN 

9000 IFX-OTHENRETURN 

9010 A*(I>-» ": I-I*i:X-X+i: IFX-20THENX-0 

9020 G0T09000 

50000 AS-INKEYS: IFA*-" "THEN50000ELSEPRIN 

TASC(A*> 



LISTING 6 



CLEAR1000:DEFINTA-Z 

1 G0SUB5000 

2 LO-0: IN-30: IB=10:K!"1 

10 CLSlLINEINPUT'Nom <lu +ichl»r : ->" 

IN* 

20 INITttl, N*. , -M- 

25 LPRINTCHR*(1B) | !LPRINT"A"| tLPRINTCHR* 

(18) | !LPRINT"M"IB",0':LPRINT"I' 

30 IFFI-2THENFI-0:G0T023 

31 G0SUB3000:IFTU-1THENTU-0:IFB-13THEN30 
40 IFB*0"I"THEN200 

30 C*-"" 

60 G0SUB3000: IFB»<>- 3 "TIIENC»-C*+aS:(vQIU6 

O 

70 IFLEFT*(C*, 1 ) -"L-THENLA-VAL (MID*(C«, 2 

) ) 

80 IFC*-'PLEIN'THENMD-1 

90 IFC*-"N0RMAL"THENMD-2 

100 IPC*- ■ TABULE ■ THENMD-3 : GOTO 1 90 

110 IFC*--CENTRE"TH£NHD-4 

120 IFLEFT*(C*,3)-*INTER"THENIN-VAL(MID* 

(C*,6) ) 

130 IFLEFT*(C*,3)-"TAB a THENA*-A*-»8TRINB* 

(B«VALIMID*(C*,4) ) , a " > : GDBUB64000 

140 IFLEFT*(C* f 3)-"DEB"THENIB-VAL(MID«tC 

*,4») :TU-i:GOT025 



130 IFLEFT*(C*,3)- , BIQ"THENK!-UAL(MID*IC 

*,4) > 

160 IFLEFT*(C*,3)-"C0L"THENLPRINT'C-+MID 

*<C*,4) 

190 TU-1IG0T030 

200 IFB*-CHR* (13) THEND*" " » i G0T0204 

201 A*-A*+B*:G0SUB4000:L0-L0+L: IFLO<LATH 
EN30 

203 D*-":G08UB6000 

204 ' 

210 IFMD-3THENLPRINT'M"LA-L0",0"!G0TO100 

o 

220 IFHD-2THEN1000 

230 IFMD-4TMENLPRINT"M" (LA-LO) /2',0-:G0T 

01000 

240 IFB*-CHR*(13)THEN1000 

241 CT--1:F0RI-1T0LEN(A«) 

250 G»-MID*(A*, I, 1) ! IFG*-" "ORG*-" ' "ORG* 

■ ■, -ORG*-". "ORG*-" I -ORG*-": 'THENCT-CT + 1 

239 IFG*-"?"ORG*-" ! "ORG*-" - "THENCT-CT+1 

260 NEXT 

270 DIMSP(CT) 

275 IFL0-LATHEN300 

280 PT-0 

290 SP (PT > -SP ( PT ) + 1 : LO-LO* 1 : IFL0-LATHEN3 

00 

295 PT-PT+l:lFPT>CTTHENPT-0 

296 G0T0Z90 

300 PT-0:F0RI-1T0LEN(A*> :B*-MID*IA«, 1,1) 
! IFB*-- "ORB*-", "ORB*-" "ORB*-", "THEN400 
310 IFB*- 1 I "ORB*-". "ORB*-" -"ORB*-": "ORB* 
-"?"ORB*-" ! "THEN400 
320 G05UB1999 

330 next:erasesp:gotoioio 

400 IFI-LEN(A*)THENLPRINT"R"SP(PT) ",0":g 

0T0320 

410 IFSP(PT) /2< >INT(SP(PT) /21THEN450 

420 LPRINT"R"SP1PT)/2",0":G0SUB1999ILPRI 

NT"R"SP1PT) /2",O":G0TO500 

450 LPRINT"R"INT(SP(PT)/2) " , O" : G0SUB1999 

:LPRINT"R"INT(SP(PT)/2)+l",0" 

SOO PT-PT+l:GOT0330 

1000 FORI-lTOLEN(A«) i B*-MID*(A*, I , 1 ) : 60S 

UB 1999! NEXT 

1010 LPRINT"MO,-"IN*K! : LPRINT"! " : IFFI-1T 
HENFI-2 

101 1 IFD*-" "THENA*-" " : LO-0! GOT030 

1012 A*-D* 

1020 lo-o:fori-itolen<a*> :lo-lo+loiasc(m 
ID* I A*, I, i) ) ) :next:goT03O 

1999 IFB*< >""THENINITM2,B*ELSERETURN 

2000 X-INP(tl2)-12B:Y-INPttl2)-12e: IFX-99A 
NDY-99THEN2100 

2010 IFX-OANDY-OTHENRETURN 

2020 LPRINT "J "X#K! ", "Y*K! SG0T02000 

2100 X-INP(tt2)-128:Y-INPHtZ)-128: IFX-99A 

NDY-99THEN2000 

2110 IFX-OANDY-OTHENRETURN 

2120 LPRINT"R"X*K! ", "Y#K! :G0T02100 

3000 IFCR-lTHENB-INP(lll) : IF8-32THEN3000E 
LSECR-0:B*-CHR*(B) : G0T03003 

3001 B-INP<#1) :B*-CHR*(B) : IFB-0THEN3000 
3003 PRINTS* I 

3006 IFB*-CHR*(13)THENCR-1 

3010 RETURN 

4000 L=K!*L0(ASC(B*) ) : RETURN 

3000 DIMLO(233) ,A*(3l) : RESTORE J F0RI-1T03 

1 : READA* ( I ) : NEXT : REST0RE10O00 

5001 F0RI-6ST090:READL0(I) :PRINTCHR*(I) I 

: NEXT! F0RI-97T0122: READLO ( I ) : PRINTCHR* 1 1 

) | : NEXT 

3015 F0RJ-1T031 

5020 READLO(ASC(A*(J) ) ) :PRINTA*(J) 1 : NEXT 

3100 DATA" ■,•,",".", "K", *,♦,-,-,(,),/, " 

*","F",",", I, ":",.. 1,2, 3, 4, 3, 6, 7, 8, 9,0 

3110 DATA?, ! ,"2", "N" 

5120 ERASEA*: RETURN 

6000 IFLO<LATHENRETURN 

6010 D*-RIQHT*(A«, 1 ) *D»: A*-LEFT*(A«, LEN( 

A*)-l) :L0-L0-L0(ASC(LEFT*(D*,1) ) ) 

6020 G*-LEFT«(D«, 1) :IFG*-" "ORG*-" , "ORG* 
- " • " ORG*- " . " ORG*- " I " ORG*- " I " THEN6030 

602 1 I FG*- " - " ORG*- ■ ? " ORG*- " ! " THEN6030 

6029 G0T06010 

6030 IFLO<LAANDD*-". 'THEN6010 

6040 IFG*-" 'ANDL0<LA1HEND*-MID*(D*,2>:R 

ETURN 

6043 IFL0+L0(ASC(G*> )<LATHbNA*-A*+G»: D*- 

MID*(D*,Z) ;LO-LO+LO(ASC(G*> ) : RETURN 

6030 IFG*<>" "ANDL0<LATHEN6010 

6O60 G0T06000 

10000 DATA17, 18, 16, ZO, 13, 19, 18,23,23,23, 
17 

10001 DATA16.26, 16,21, 19,21,25, 19,21, 19, 
24 

10002 DATA25,26,20,24,13, 12,11,13,8,7, 14 

10003 DATA9.7, 10,11,10, 15, 11,10,13,13,12 

10004 DATA 10 , 9 , 11 , 14 , 17 , 13 , 

13 , 13 , 15 , 8 , 8 

10005 DATA 9 , 10 , 12 , 12 , 12 , 13 , 

14 , 13 , 6 , 15 , 16 

10006 DATA 16, 21, 19, 14,22,17, 17,19,17, 17, 
18 

10007 DATA17, 17,26, 17,21, 13 
20000 A*-INKEY*: IFA*-" "THENZOOOO 
ZOOIO PRINTASCIA*) 

64000 L0-L0+K<*L0<32)*8*VAL<MXD*<C*,4> ) : 
RETURN 



Putain, on commence serieuse- 
ment a se faire chler. II ne se 
passe rien. Mais alors hen du tout. 
Le premier Comdex francais - 
Nice, fa semalne derniere - a fait 
un bide : tres peu d'exposants, 
pas de nouveautes et des vfsiteurs 
rarissimes malgre le beau temps 
et la proximite de la mer. Les 
salons anglais ne sont visites que 
par des ivrognes qui peuvent pico- 
ler dans les buvettes alors que les 
pubs de la ville ne sont pas encore 
ouverts. Le compatible IBM 
d'Amstrad se fait attendre, r Apple 
I1 16 bits ne sortira qu'en septem- 
bre et les aulres ne sortent rien du 
tout. On s'emmerde. heureuse- 
ment que les vacances appro- 
chent a grand pas : en general, 
c'est pendant ces periodes de 
desoBuvrement que les responsa- 
bles produits prennent des deci- 
sions a la mord-moi-le-nceud, des 
produits du style Alice voient le 
Jour, on importe des Lynx, des 
demi-MSX, des avortons de ZX 81 , 
des machins avec des touches qui 
ressemblent a peine a un ordina- 
teur, bref des merdes. Et meme 
des merdes, plus personne n'en 
sort, ca roupille, on n'a personne 
a allumer. On s'emmerde. Tiens, 
j'ai une idee, la semaine pro- 
chaine, on s'attaque a la Hifi, a la 
Video, a la tele. La, au moins, y a 
de quoi faire. Boujour les ententes 
sur les prix. En avant les magouil- 
les. Ole, les faux comparatifs. Et 
je te garantis les prix les moins 
chers. Et je te rembourse la diffe- 
rence. Et je te fais le contrat- 
confiance. Preparez vos mou- 
choirs, ca va renifler. 



Gerard Ceccaldi 








CAHAl; 



AMITYVILLE III 



Volontaire pour delivrer un jeune couple d'amoureux victi- 
mes des forces du mal, vous ne devrez pas manquer de res- 
sources pour affronter dans sa taniere, le diable en 
personne... 

Christophe COUPEZ 

Mode d'empioi : 

Tapez et sauvegardez a la suite ces deux listings. En ligne 1740 du listing 

2, les "I" correspondent a des "t*' (CTRL/K). Les regies sont incluses. 



/vw Ntxis muz *— AMSTRAD 




LISTING 1 



60 EVERY 100,2 GOSUB 70 
65 GOTO 90 

70 IF R*-"OK M THEN 71 ELSE RETURN 

71 PLOT X,Y,3:DRAW XI, Y 

72 W-INT (0+100*RND) 

73 IF W>=50 THEN X-X-INT (0+Z#RND> 
:X1-X1+INT (0+2*RND) ELSE X=X+INT 
(0+2#RND> :X1=X1-INT (0+2*RND) 

76 y-y-i:return 

90 W»0 

93 R*="LL" 

ioo rs«"ll m :mode i:ink o,o:border 
o: ink i,o:ink 2,o:ink 3,0 

109 REM A 

110 FOR M=l TO 32IPL0T 64,336, 1 : DR 

aw n, i92:next 

120 FOR M=96 TO 128IPL0T 64,336:DR 
AW M, 192:NEXT 

130 for m-240 to 247:pl0t 1,midraw 
i28,m:next 

133 REM M 

140 FOR M-128 TO 160:PL0T 144,320, 

2: DRAW M, 236: NEXT: FOR M-28B TO 302 

: PLOT 144 ,320: DRAW 176, M: NEXT 

130 FOR M-288 TO 302: PLOT 208,320: 

DRAW 176,M:NEXT:F0R M-192 TO 224:P 

LOT 208,320:DRAW M,256:NEXT 

155 REM I 

160 FOR M-233 TO 245:PL0T M,320:DR 

AW M.272, l: NEXT: FOR M-233 TO 243:P 

LOT 240,236:DRAW M,272:NEXT 

163 REM I 

170 FOR M-270 TO 274:PL0T M,400,3: 

DRAW M,224:NEXT 

180 FOR M=348 TO 352: PLOT 224,M:DR 

AW 320, M: NEXT 

182 REM I 

IBS FOR M=299 TO 309:PL0T M, 320,1: 

DRAW M,272:NEXT 

187 REM V 

190 FOR M-336 TO 368: PLOT 384,256, 

2:DRAW M,320:NEXT:F0R M-400 TO 432 

:PLOT 384,256:DRAW M, 320: NEXT 

193 REM Y 

200 FOR M-320 TO 336: PLOT 288,256, 

l:DRAW M, 288: NEXT 

205 REM I 

210 FOR M=459 TO 46?:PL0T M, 320,2: 

DRAW M,272:NEXT:F0R M-459 TO 469:P 

LOT 464,236:DRAW M,272:NEXT 

215 REM 2L 

220 FOR M-492 TO 500:PL0T 496,384, 

i:DRAW M,224:NEXT:F0R M-230 TO 234 

:PLOT 480,232:DRAW 344,M:NEXT 

230 FOR M»540 TO 548:PL0T 544,384, 

2IDRAW M,256:NEXT:F0R M-258 TO 260 

;PLOT 312,264:DRAW 576,M:NEXT 

240 REM E 

230 FOR M=2S6 TO 384:PL0T 576,320: 

DRAW 392, M, 1 ! NEXT S FOR M=36B TO 384 

:plot 392 p M:DRAW 640,376:NEXT:F0R 

M-312 TO 328:PL0T 592,M:DRAW 640,3 

20:NEXT:F0R M=256 TO 272:PL0T 592, 

m:draw 640, 264: NEXT 

260 REM 3 

270 FOR M-112 TO 208:PL0T 336,160, 

i:draw 320 ( m:next:for m=192 to 20s 
:plot 236,200:draw 3ZO,m:next:for 
m=14b to 164:pl0t 236,160:draw 320 
,m:next:for M-112 to 128:plot 256, 
H6:draw 320,m:next 

280 REM 

290 LOCATE 2,20:PEN ltPRINT "LA MA 
ISON":PEN 2:L0CATE 2,22:PRINT "INF 
ernale":pen 1: LOCATE 4,24:PRINT "E 
ST REVENUE" 
300 REM CROIX 

306 LOCATE 21,24!PEN 3:PRINT "APPU 
YEZ SUR 1 TOUCHE" 
310 FOR M*80 TO 144 

313 INK l.INT <1+26*RND> : INK 2, INT 
(1+26*RND) : INK 3, INT (1+26*RND):A 
*=INKEY*:iF ASO"" THEN 300 
320 IF M>»112 THEN PLOT 512,160,3: 
DRAW 512,64:PL0T 480,M:DRAW 544, M 
ELSE PLOT 512, 160, 1 : DRAW 512,64:PL 
OT 480,M!DRAU 544, M 
330 FOR N»l TO 5!S0UND 5,M+N,3,13: 

:next niplot 4BO,m,o:draw 344, m,o: 

NEXT M 

340 FOR M=144 TO BO STEP-1 
345 INK 1,INT ( 1 +26#RND ) : INK 2, INT 
(1+26#RND) : INK 3, INT (1+26*RND>:A 
S=INKEYS:IF ASO"" THEN 300 
330 IF M>=112 THEN PLOT 312,160,3: 
DRAW 512,64!PL0T 480,M:DRAW 544, M 
ELSE PLOT 312,160,l:DRAW 312.64:PL 



OT 490,M:DRAW 544, M 

360 FOR N-l TO 3: SOUND 3,M+N,Z,13: 
NEXT n:plot 480,M,0:DRAW 344,M,0:N 
EXT 

370 GOTO 310 

500 B=i:X»192:Xl=200:Y»380 
310 FOR M-1000 TO 1 STEP -2:S0UND 
1,M, 1, 15:S0UND 4,M+20, 1, 15:NEXT M 
515 FOR M-l TO 6: INK l.INT (1+26*R 
ND):INK 2, INT ( 1+26*RND) : INK 3, INT 
(1+26*RND> :FOR N=50 TO 1 STEP-1:S 
OUND 1,N, 1, 13: SOUND 4 , N + 10, 1 , 15: NE 

xt n:next M 

317 IF W-l THEN PEN 3: INK 3,26:L0C 

ATE 21, 24: PRINT ■ CHARGEMENT 

. . . " : RUN " • ■ 

520 MODE 1 

530 INK 0,3:B0RDER 3: INK 1.26MNK 

2,0:INK 3,6 

540 PEN 3: PAPER 01 LOCATE 16,6:PRIN 

T "AmltYvIlLe'ILOCATE 9,24:PEN i:P 

RINT "APPUYEZ SUR UNE TOUCHE" ILOCA 

TE 1,5:PRINT "BY COUPEZ" : LOCATE 1, 

6JPRINT "Chriatophe" 

343 PEN 3 

330 A-332:F0R M=336 TO 384:PL0T 32 

,304,1: DRAW 416,M:PL0T 417,M,2:DRA 

W 480,M:PL0T 481, M: DRAW 544,A:PL0T 

543, A! DRAW 392, A: A=A+0. 666: NEXT 
560 PLOT 2Z4,328,2:DRAW 416,328;DR 
AW 416,296:DRAW 2Z4,296:DRAW 224,3 
28 

370 PLOT 16,272,2:DRAW 624,272:DRA 
W 6Z4,4B:DRAU 16,48:DRAW 16,272 
380 WINDOW "0,3,38,21, 10:WIND0W Ml 
,7,9,8,3:R*="0K" 
590 PRINT " AMITYVILLE 



600 PRINT "ETE 1983, un jeune coup 
le d ' amoureux lone une grande maiso 
n situee a la bordure d'un beau 1 
ac, mal gre les ru-meurs qui courent 

■ur cette immemse demeure : el le 
renf ermerait Ibb for-ces du mal t! 

603 GOSUB 8000 

610 PRINT "Malgre ces rumturi, lea 

j eunes gens s* mstal lent . Reaultat 
: plus de nou- vel le d'tux depuls 
lors, lis sont done prisanniers 
des -forces du MAL! " 

620 PRINT "Vous vous etes parte va 
lontaire pouraller en-fin les deliv 
rer . Votre mis-sion ne sera pas de 

tout rapes. . . 11 vous fa 

udra : " 

623 GOSUB BOOO 

630 PRINT " - delivrer JOHN et ELI 
SA - vaincre le diable 

dans sa taniere - trouver la clef 
de contact de la voiture du cou 
pie, et celle du garage, pour 
vous sauver p lua vlte" 
640 PRINT " - rejoindre le- garage. 
..(FIN) Tout ceci dans une 'd 
emeure' r iche de 660 sal les, (4 et 
agea,l cave) en etant sans cease 
menace par un fan- tome.ou par le 
manque d"energie,Du encore de cha 
leur vi tale ! ! ! " 
643 GOSUB 8000 
650 PRINT "Maintenent.passons dans 

le detail: Votre energie est sto 
ckee dans des batteries (BAT) qui 

se rernp lacent d'elles meme lors 
qu'elles sont de- char gees. Ces ba 
tter ies, vous pDuvez les trouver a 

terre,ou les acheter au magasin. 

633 GOSUB BOOO 

660 PRINT "FAITES ATTENTION A VOTR 
E TEMPERATURE J!!!!!!!!!!!!!!!!!!!! 
I J !!!!!!!!!!!! ! Lorsqu* el le deace 
nd,cela signifie que votre combina 
ison s' use ! Vei 1 lez done a en aval r 
en rechange. (CO) Pour s'en pro 
curer,il vaut alter au magasin s'e 
n acheter une. . . " 
663 GOSUB 8000 
670 PRINT "CONTINUONS: 

Pour vaincre le diabl 
e,ll vous sera demande de possede 
r un nb de croix variant de 20 a 3 
O..Pensez done a enacheter ou en r 
amasser de temps en temps ! ! " 
675 GOSUB 8000 

680 PRINT " De meme, pour vaincre 
les ftntomti qui se presentent a 
voua de temps a autre, i 1 eat VITA 



L de les eloigneravec de l'AIL. 

On les trouve a 
u magasi n ou sur le sol ... * 
6B3 GOSUB 8000 

690 PRINT "Enfin,il se pourrait bi 
en que vous tombiez dans des puit 
s...Que fair* pour remonter? Mais 

avoir une corde, elemental re. .. " 
700 W=i: GOSUB 8000 
710 PRINT:PRINT "Volci la function 

des quel ques tou- ches dont vous 
aurez a vous servir! 

<C> A ut 
iliser laraque vous etes to 
mbe dans un pui t . <C >orde. . . 
Blen sur.il la faut posaeder, 

cette corde. . . " 
720 GOSUB 8000 
730 PRINT:PRINT " <P> A utiliser 

pour <P>rendre un objet pa 
r terr*. . . 

<N> Pour 

alien vers le nord 

<E> 
Pour alien vera 1 * est 



740 GOSUB 8000 

750 print:print " 

vers 1* sud 
1 ler vers 1 ' ouemt 



<S> Pour slier 
<0> Pour a 



FIN .... ".'GOSUB 8000 
760 LOCATE 13,6:PRINT "BONNE CHANC 

E": gosub sooo: w=i:goto 100 

8000 A*«INKEY* 

8010 SOUND 1,INT ( 1000*RND) , 10, 10: 

SOUND 4, INT <1000#RND) ,10, 10: SOUND 

2, INT (1000*RND>,10,10 
8020 IF A*<>"" THEN CLS:RETURN ELS 
E 8000 



LISTING 2 



1 MODE 2 

2 BORDER 

3 EVERY 30,2 GOSUB 7 

6 GOTO 10 

7 IF R*-"0K" THEN I«I-0. 3: EN-EN- I : 
RETURN 

8 if r*»"mus" then qe-int ( 10+200*r 
nd>: sound 1,qe,2, 15is0und 4.qe+100 
,2,13:return else return 

10 ar = 50: ink 0,0:b0rder 1 mode 111 
nk i,13:locate h,13:paper o:pen i 

: INK 1,13:R»-"MUS":PRINT "VEUILLEZ 

patienter":goto 300 
100 rem datas pour les salles 

102 rem datas pour la cave 

103 DATA 0010,0011,0111.0111,0111, 
0111,0111,0111,0110,0011,0110,1011 
,1101, 1111, 1111,1111,1111, 1111,111 
1, 1111, 1111, 1110,1011,0111, 1111,11 
01,1101,1101,1101,1111,1111,1111,1 
110,1001,1100, 1011,0111,0111,0111, 
0111,1100,1010,1011,1110,0011,0101 
,1110, 1000, 1000 

105 DATA 1000,1000,0011,1111,1111, 

1110,1000,0010,1001,0100,0011,0111 

,0111,1111,1111,1111,1110,0011,1.11 

1,0111,0111, 1110, 1011, 1111, 1111,11 

11,1111,1110,1011,1101,1101,1101,1 

101,1111, 1101, 1101, 1101, 1101, 1110, 

1011,0101,0101,0101,0101, 1101,0101 

,0101,0101,0100 

110 DATA 1010,1001,0101,0101,0101, 

0101,0101,0101,0101,0101,0101, 1100 

112 REM DATAS POUR LE REZ DE CHAUS 

SEE 

115 DATA 0011,0110,0001,0111,0101, 

1111,0111,0111,0111,0111,0110,1011 

,1101,0101, 1101,0111, 1111, 1101, 111 

o, 1010, 1011, 1110, 1010,0011,0101,01 

11, 1110, 1010, 00 11, 1110, 100 1,11 00, 1 

010, 1010, 1011,0101, 1111, 1111, 1110, 

1011, 1110,0011,0111, 1110, 1010, 1011 

,0101, 1101, 1111 

1Z0 DATA 1110,1010,1011,1101,1100, 
1001, 1010, 1011,0101,0100, 1000, 1011 
,1111, 1111,0111,0111,0110, 1011, 111 
1,0111, 0101, 0110, 1010, 1010, 1011, 11 
11,1111, 1110, 1011, 1111, 1101,0101, 1 
100, 1011, 1101, 1101, 1110, 1011, 1100, 
1011, 1111,0101,0101,0101, 1111,0101 
,0110, 1000, 1011 

125 DATA 0110,1001,1101,0101,0101, 
0101, 1101,0101, 1101,0101, 1101, 1100 
127 REM DATAS POUR LE 1ER ETAGE 



cM59£ t KfrB 



%- 



130 DATA 0010,0011,0101,0111,0111, 
0111,0101,0111,0111,0111,0110, 1011 
,1101,0111, 1101, 1100,0111,0111,111 
1, 1100, 1011, 1100, 1010,0011, 1101,01 
11,0110, 1011, 1110, 1011,0101, 1101,0 
100, 1010, 1001,0110, 1011, 1111, 1111, 
1101,1101,0101,0101,0100, 1011,0101 
,1101,1110,1010 

132 DATA 1001,0101,0101,0101,0100, 
0010, 1011,0111,0110, 1000, 1000,0011 
,0110,0001,0101,0101,1110,1010,101 
1,1111,0111,0111, 1111,1110,0011,01 

11,0111, 1110, loio, 1011,1111, 1111,1 

111, 1111, 1110, 1010,1010, 1010,1010, 

1010,1001,1111,1111,1111,1111,1110 

, 1010, 1010,1001 

133 DATA 1100,1001,0101,1101,1101, 
1101, 1101,1100, 1001,1101,0101,0100 
140 REM DATAS POUR LE 2EME ETAGE 
143 DATA 0011,0101,0111,0101,0101, 
0111,0101,0101,0101,0101,0110, 1010 
,0001, 1101,0101,0100, 1010,0011,011 
1,0111,0110,1010,1001,0101,0101,01 

01,0111, 1101, 1101, 1101,1101, 1100, 1 - 
010,0011,0111,0111,0101,1101,0111, 

0101.0101.0101.0101.1110. 1010. 1000 
, 1010,0011,0101 

147 DATA 1111,0111,0111,0111,0110, 

1010,1001,0101, 1100, 1001,0100, 1010 

, 1001,1101, 1101, 1100, 1010,0011,010 
1,0101,0101,0101,1111,0101,0101,01 
01,0101, 1110, 1010,0011,0111,0111,0 
110, 1010,0011,0111,0111,0110, 1010, 

1010.1001. 1101. 1111. 1100. 1010. 1001 
, 1101,1111,1100 

130 DATA 1010,1001,0101,0101,1101, 
0101, 1101,0101,0101, 1101,0101, 1100 

179 REM DATAS POUR LES OBJETS CONT 
ENUS DANS LES SALLES 

180 REM CAVE, REZ DE CHAUSSEE, 1 , 2EM 
E 

L90 DATA 10,9,DI,4,*,EM,2, L,*,S,2, 

0,3, 3,*, 10, 4, 0,4, 5, 0,5, 5, 0,6, 5, 0,7 

, 5, 0, 1, 6, 0,2, 6, C, 11, 8, 0,3, 10,0, 6, 1 

0,E, 10, 10,C,-1 

ZOO DATA 12, 5, GA, 3, 1,0,10,2,0,2,3, 

•,4,4,0,9,4,0^1,3,0, 11, 3, E, 3, 6, E, 4 

,6,ED,3,6,EM,J.1,6,E,7,7,0,1,S,E,4, 

8,0, 10, B,», 8,9,0,2,10,0,4, 10,*, 6, 1 

0,E, -1 

210 DATA 11, 4, ELI, 4, 6, EM, 1,1,*, 3,1 

,0,6,1,E,5,2,0,8,2,*,9,2,0,4,3,E,9 



,3,E, 11,3, 



,3,4,0, 11,4, 1,2,5,0,7,5 



,0,11, 5, 0,5, 6, ED, 8, 6,*, 4, 7,0, 10,7, 

0,1,9,E,3,9,0,7,9,0, 10, 9, E, 4, 10, 0, 

7, 10,*, 11, 10,0,-1 

220 DATA 2, 5, EM, 2, 2, JO, 3, 6, ED, 2,1, 

C,7,1,0,4,2,*,3,3,E,7,3,*,10,3,0,3 

,3, 0,8, 3, 0,2, 7,*, 8, 7,0, 11, 7, 0,4, 8, 

0,2,9,C,6,9,E,10,9,E,3,10,CL,-1 

230 DATA 2, 5, ED, 3, 5, EM, 10, 2, C, -1 

240 DATA 3,5,ED,8,9,CL,-1 

300 REM LECTURE DES DATAS 

310 DIM SAL* (6, 13, 15) :DIM OBJ* (6 

, 13, 13) :EN-99 

312 MEMORY HIMEM 

315 FOR M-0 TO 3 

320 FOR L-l TO 10:F0R N=l TO 11 

330 READ AS 

340 sals (m,n,l>=a* 

345 next ninext l:next m 

346 for e«=4 to 3: for m=2 to 9: sals 
(e, 1, m> =" 1011": sals <e, 11,m)»"i110" 
:next m:next e:for e»4 to s:sals<e 
, l, io)-"iooi":sal*(e,i, i)»"00ii":s 
als ( e , 1 1 , 1 ) = ■ 1 1 00 " : sals ( e , 1 1 , 1 > ■ " 
oiio":next e 

347 for e-4 to 5: for c-2 to 10: sal 
s(e,c, 1>*"0u1 h :sals(e,c, 10) = "1101 
":next cinext e:for e=4 to s:for m 

-2 TO 9:F0R C»2 TO 10: SALS tE, C, M) - 

"11H":next c:next m:next e 

330 FOR M=0 TO 5 

360 READ A 

370 IF A=-l THEN NEXT M:GOTO 390 

376 READ B,AS 

380 OBJS (M,A,B)=A* 

385 GOTO 360 

390 SALS(5,2,5)-"1110":SALS(5,4,3) 

«"1011":SALS(5,3,4)-"1101 , ':SALS(4, 

1, 5) * B 1010": SALS (4, 2, 6) -"01 11": SAL 

S(4,4,5)='1011 H :SAL*(4,3,4)»"1101" 

450 REM FIN . . . 

455 REM DEFINITION CARACTERE 

460 SYMBOL AFTER 200 



Suit* 



30 



LA RECHERCHE DU 
DIAMANT VERT 



EXELVISION EXL 



OH PCCWWT 



Encore une fois victime de votre curiosite, vous voila coince 
sur une bien etrange planete, ou seule la possession d'un 
diamant sacre permet le retour sur la Terre. Inutile de pre- 
ciser que ce fameux "diamant de la liberie" est pratique- 
ment inaccessible... ou presque. 

SUITE DU N° 139 Jean " Marc LEPAUL 




1270 DATA 1Q<31 ,10,30,10,29, 10,28, 10, 27, 1 1 ,26, 

1280 DATA 11,21,11,20,11,19,11,18,11,17 

1230 DATA 12, 16,13, 13, 13, 14, 13, 13,13,12,13,11 , 

i A I A 13,5,13,4,14,3,15,2,13,1 



1 300 
1310 
1320 
1330 
1 340 
1350 
1360 
■1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
14E0 
1470 
1 4 BO 
1480 
1300 
1510 
1320 



1SE0 
1570 
1580 
1580 
1600 
1610 
1620 
1630 
1640 
1650 
16E0 
1670 
1680 
1G30 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1300 
1910 
1920 
1990 
1940 
1950 
1960 
1970 
1380 
1890 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2 '1 40 



1,23,11,24,11,23,11 
3,10,13,9,13,8,13,7 



2210 

2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 



CH<» 

CV=19 

AH»1 2 

AV-5 

FOR T=»1 TO YY 

CALL KEY1(K,KK) 

IF K-130 THEN 1380 ELSE 1430 

LOCATE (X-2,W) iPRINT CHR*(32) 

READ X,UI 

CALL C0L0RC'1RB">iLDCATE t X-2 ,W ) i PRINT CHR*(53) 

IF X<>15 THEN 1330 

GOTO 1970 

IF W< >25 THEN 1530 

CALL SPEECH <"L,"SA**B*> 

CALL COLORC'IWB") iLOCATE (9,18)iPRINT RFT*(CHR* ( 46 > , 6) 

LOCATE (B, 18) : PRINT RPT* ( CHR* (46 ) ,9) 

LOCATE (9,26)iPRINT CHR*<46> 

LOCATE (9, 18) : PRINT RPT*( CHR* (32 ) ,9) 

LOCATE (8,18) iPRINT RPT* (CHR* (32) , 9) 

CH-0 

YY = 2 

READ X,W 

IF WO10 THEN 1620 

CALL SPEECHl "L,"8A*8Ei*) 

CALL COLOR("1WB")iLOCATE (10,5)iPR1NT RPT* <CHR*< 46 ) , 1 1 ) 

LOCATE (11,5):PRINT RPT* ( CHR* (46 > , 4 ) 

LOCATE (11 ,11) iPRINT RPT* ( CHR* (46 >, 5) 

LOCATE <10,S)iPRINT RPT* < CHR* ( 32 ) , 1 1 ) 

LOCATE (1 1 ,5) iPRINT RPT* ( CHR*( 32 ) , 1 1 ) 

AH-0 

READ X,W 

CALL C0L0R("1RE:"):L0CATE ( X-2 , W) : PRINT CHR*<54) 

NEXT T 

IF CH=0 THEN 1800 

IF CH=10 THEN 1710 

LOCATE (CH-2,CV) iPRINT CHR*(32) 

CH-CH-1 

cy=cy+i 

CALL COLORC'IRB" ) iLOCATE (CH-2 ,CV ); PRINT CHR*(56) 
IF CV<>26 THEN 18O0 ELSE 1770 
LOCATE (CH-2,CV)iPRINT CHR*(32) 
CH=CH+1 

cv=cy+i 

CALL 1 CDLDR("1RB") iLOCATE <CH-2 , CV ); PRINT CHR*(55) 

IF CCV""W)t(Cy»=U-1 ) + (CV=W41 )THEN 2210 

GOTO 1800 

LOCATE <CH-2,CV) iPRINT CHR*(32) 

CH«10 

CV-18 

IF AH=0 THEN 1350 

IF AH=12 THEN 1870 

LOCATE (AH-2,AV):PRINT CHR*(32) 

AH-AH-1 

AV=AV+1 

CALL COLORC'IRB") iLOCATE ( AH-2, AV ): PRINT CHR*(56) 

IF AV<>15 THEN 1350 ELSE 1330 

LOCATE (AH-2,AV>jPRINT CHR*(32) 

AH=AH+1 

AY=AV+1 

CALL CUL0R("1RB") iLOCATE ( AH-2, AY > i PRINT CHR4(55) 

IF <AV»W> + <AV=sUt1) + <Ay»W.-1>THEN 2210 

GOTD 1350 

LOCATE (AH-2, Ay) iPRINT CHR«(32) 

AH« 12 

Ay»s 

GOTO 1350 

QU=13 

CALL CHAR(57,"001C3E7763773E1C") 

CALL CHAR(58,"3C7EC3E7E7E77E3C" ) 

CALL CHAR ( 33, "3E490B1C081 42241") 

CALL CHAR ( 47, "8 15A3C 1824428 142") 

CALL CHAR (4B,"00DB3C1 824422442") 

CALL C0L0R("1YB"> iLOCATE ( 15 , 1 2) iPRINT CHR*(39) 

LOCATE (17, 1 ) iPRINT CHR*(39) 

CALL COLORC'IRB") iLOCATE ( 14 , 1 2) :PRINT CHR*(57) 

LOCATE (16,1)iPRINT CHR*<58) 

LOCATE (X-2,W>iPRINT CHR*<32) 

READ X,W 

LOCATE (X-2,W)iPRINT CHR*(53) 

DATA 15,31 ,13,30,15,29,13,28,15,27,15,26,15,25,15,24,16,23,17,22 

DATA 17,21,17,20,17,19,17,18,17,17 

DATA 17, 16, 17, 15, 17, 14, 17, 13, 17, 12, 17, 11, 18, 10, 19, 8, 19, 8, 19, 7 

DATA 13,6,19,5,19,4,19,3,13,2,19,1 

CALL KEY1 (K,KK) 

IF K=130 THEN 2170 

IF (K*49>MK"=32)THEN 2320 ELSE 2550 

LOCATE (X..2,U) rl-'RINT CHR*<32> 

READ X,W 

CALL COLORC'IRB" > I1.DCATE (X-2 , W ): PRINT CHR*<53> 

GOTO 2300 

CALL SPEECH("L,"S.B*XE*> ;FOR I»1 TD SiCALL COLOR ( "1RB" ); LOCATE (X-1,W-D 

PRINT CHR$<46) [CHR*(46> iLOCATE (X-2 , W- 1 ) i PRINT CHR4C 46) [ CHR* (46 > 

LOCATE <X r 3,KJ-1> : PRINT CHR* ( 32) ; CHR* ( 32 ): LOCATE (X-2, W- 1 ) i PRINT CHR*(32); 

PRINT CHRt( 32): NEXT: CALL SPEECHC'A , " ) 

GOTO 3520 



! 

CALL KEY1(A,&):IF A=*233 THEN 2290 ELSE RUN 230 

CALL C0L0R("1RB"):L0CATE (X-2 ,U) i PRINT CHR*(34) 

GOTO 2390 

LOCATE (X-2,W> iPRINT CHR* ( 32 ): CALL SPEECH( "L ,0D7C8BAABAB602FC" 

READ X,ul 

X»X- 1 



2350 BMfc-1 



2360 
2370 

2380 
2330 
2400 
2410 
2420 
2430 
2440 
2430 
2460 
2470 
2480 
2490 



CALL COLORC'IRB") iLOCATE (X -2 , U ) : PRINT CHRJK54) 

IF X< )17 THEN 2390 

IF QU*W THEN 2620 

IF W0 13 THEN 2490 

CALL SPEECHC'L,"&D*8E*) 

CALL COLORC'IWB") iLOCATE ( 1 4 , 12 ) iPRINT RPT* ( CHR* (46 ) , 1 1 ) 

LOCATE (13,12) iPRINT RPT* ( CHR*( 46) , 1 1 ) 

LOCATE (14,12):PRINT RPT* (CHR*(32) , 12) 

LOCATE (13,12):PRINT RPT* ( CHR* < 32 ) , 1 1 ) 

0U=»0 

READ X,W 

CALL C0LDR("1RB"):L0CATE (X-2 , W) : PRINT CHR*<33) 

IF W(>2 THEN 2550 

CALL SPEECH< "L, "JD*XE») :CALL SPEECH ( "A ," ) 



2590 
2600 
2610 
2620 
2G30 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2730 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2340 
2950 
2360 
2970 
2980 
2390 
3000 
3010 
3020 
3030 
3040 
3050 
30G0 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
31G0 
3170 
3180 
3190 
3200 
3210 



3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3330 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3490 
3430 
3500 
3510 
3320 
3330 
3340 



3580 
3390 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3G90 
3700 
3710 
3720 
3730 
3740 



16,2) iPRINT RPT*(CHR*(4G) ,9) 



CALL COLORC'IWB") iLOCATE ( 16 , 1 ) :PR INT RP1 

LOCATE (17,1) : PRINT RPT* ( CHR* ( 46 ) ,9) 

LOCATE (16,1)iPRINT RPT* (CHR* ( 32) , 9 ) 

LOCATE (17,1>iPRINT RPT* ( CHR* ( 32 ) , 3 ) 

GOTO 2840 

IF QU«0 THEN 2770 

IN=INT( 15«RNDh 1 ) 

IF IN< >1 THEN 2660 

CALL COLOR <"1UES")i LOCATE ( 1 4 , 13) iPRINT RPT* (CHR* < 46 ) , 10 ) 

CALL SP£ECH("L,"aA*&6*) 

IF X< >16 THEN 2630 

CLS 

GOTO 2210 

LOCATE (14, 13) iPRINT RPT* ( CHR*( 32 ) , 10) 

GOTO 2 EGO 

0L) = 13 

LOCATE (15, OU) iPRINT CHR*(32) 

QU=UU+1 

IF QU=22 THEN 2630 

IF LT-2 THEN 2720 

CALL C0L.0RC-1WB") iLOCATE ( 1 5 , OU ) I PRINT CHR*(47) 

GOTO 2740 

CALL COLDR("1WB"):L0CATE ( 1 5 , QU ) : PRINT CHR*(48) 

LT=2 

IF X< >17 THEN 2760 

IF W=QU THEN 2620 

GOTO 2140 

CAL=INT(6«RND*1> 

IF CAL< >1 THEN 2140 

CALL CQL0RC1W6-") iLOCATE 

CALL SPEECHt "L,"iA*4E!*) 

IF X=M8 THEN 2620 

LOCATE (1G,2)iPRINT RPT* (CHR*( 32) , 3) 

GOTO 2140 

AHH'=20 

CALL CHAR(40,"2A432A1C080B1C3E" ) 

CALL CHAR ( 100, "000087CF47G66727") 

CALL CHAR(49,"373G3733101E1£3C") 

CALL CHAR (SO , "3C4E4F6F6EC60E08" ) 

CALL CHAR(51 , " 1 00BF4FCF40A0302 M ) 

CALL COLORC'IYB") iLOCATE (21,5):PRINT CHRK40) 

CALL COLORC'IGLi") iLOCATE (20,5)iPRINT CHR*<50> 

LOCATE (13,5)iPRINT CHR*(49) 

LOCATE (18,5) iPRINT CHR*(100) 

FOR 1-0 TO 2IL0CATE < 18*1 , 6 ) i PRINT CHR*(51 ) : NEXT I 

DATA 19,32,19,31,19,30,19,29,19,28,19,27,20,26,21 ,25,22,24 

DATA 23,23,23,22,23,21 ,23,20,23, 19 

DATA 23,16,23,17,23, 16,23,15,23,14,23,13,23, 12,23,11 ,23,10,23,3 

DATA 23,8,23,7,23,6,23,5,23,4 

CALL KEYKK,KK) 

IF Ul==4 THEN 3430 

IF K"130 THEN 3020 ELSE 3110 

LOCATE (X~2,U>:PRINT CHR*(32) 

READ X,W 

CALL COLORC'IRB" ) iLOCATE (X-2 , W ) iPRINT CHR*(53) 

LOCATE (X-2,W)iPRINT CHR*(S4) 

GOTD 3110 

LOCATE (AHH-2,1B) :PRINT CHR*(32) 

AHH"=19 

AHH=AHHi1 

GOTO 3150 

FG==INT(3*RN0) + 1 

! IF FGO'I THEN 2760 

LOCATE (AHH-2, 18) iPRINT CHR*(32) 

AHH=AHH41 

CALL C0L0R("1WB")iLDCATE (AHH-2 , 1 B ) iPRINT CHR*(48) 

IF AHH< )23 THEN 3180 

IF W=19 THEN 2620 ELSE 3070 

LH"INT(10*RND+1) 

IF LH<>1 THEN 3250 

CALL COLOR-CHUB") iLOCATE (21,7):PRINT CHR*(4G) 

CALL SPEECH("L,"XC*> 

IF W=">7 THEN 2620 

LOCATE (21,7):PRINT CHR*(32) 

GOTO 2390 

IF LH(>2 THEN 3330 

CALL COLORC'IRB") iLOCATE C20,7)iPRINT CHR*(46) 

LOCATE (21 ,8):PRINT CHR*(46) 

CALL SPEECH("L,"8C;*) 

IF W^=B THEN 2620 

LOCATE (20 ; 7):PRINT CHR$(32) 

LOCATE (21,8):PRINT CHR*(32) 

GOTO 2390 

IF LH< >3 THEN 2930 

CALL COLORC'IRB") iLOCATE <13,7>iPRINT CHR*(46) 

LOCATE (20,8) :PRINT CHR*(4E) 

LOCATE <21,3)iPRINT CHR*(46) 

CALL SF'EECH("L,"iC$) 

IF W==3 THEN 2B20 

LOCATE CI9,7)iPRINT CHR*(32> 

LOCATE (20,8):PRINT CHR4(32) 

LOCATE (21,3)iPRINT CHR!fi(32> 

GOTO 2390 

PAUSE 2iCLSiCALL COLORC'ORB") 

CALL BRAY 

PRINT TAB(3) ;"EiRAyO ! I I ": PRINT i PRINT : PRINT "LES POUyOIRS DU DIAMANT "; 

PRINT "yOUS SPNT DONNES" i PRINTiPRINT rPRINT "ILS NE DEyRONT REPANDRE DUE "[ 

PRINT "LE BIEN" 

INPUT "yOULER YOUS REJOUER?"[Z* 

IF Z*a"0"THEN RUN 280 

END 

yiES-VIES- 1 :CALL POKE ( 51 000 , VIES) 

IF yi'ES^O THEN GOTO 3540 ELSE 2290 

CALL AAA 

CLSiCALL CDLORC'OMB") iPRINT "DESORMAIS LE DIAMANT AU POUyOIR SUPREME "; 

PRINT " N'APPARTIENDRA PLUS A PERSONNE" i PRINT iPRINT 

CALL COLORC'OCB")iPRINT "GAME OyER" 

INPUT "UOULEZ yOUS RE.JDUER ?" [ML* 

IF ML*"="0"THEN RUN 2B0 

SUB PRESENTATION 

CALL MUSIiPAUSE .SiCALL BONJiPAUSE .5iCLS "GBB"iCALL COLORC'OBG") 

LOCATE (2,10)lPRINT " LA RECHERCHE DU DIAMANT VERT" 

CALL COLORC'OGEi") iLOCATE (3,10):PRINT " "iPRINT 



oj-ita 



PRINT 

PRINT' 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "poser en 

PRINT "entourent 

CALL COLORC'OBU" 

CALL COLORC'OGB" 

PRINTiPRINT "lea 



"iPRINT 
"iPRINT 
iPRINT 
•.PRINT 
.".-PRINT 
-OUffl"iPRINT 
itant lea aiBtaroides qui":PRINT 
a planete et 1 (■:■=; cfiampignona" iPRINT 
LOCATE (22,29) iPRINT "C RETURN 3" 1PAU8E1 CLS 
PRINT "... grants. Ensuite vaus devrea nvite 



Ufi dev 



. Evidemment , ce dernier- em 
manfc. inaccessible, ou preaqi 



qua I a magi 



ee po 



A SUIVRE... 



RADIUS CAVER 



Perdu dans le temps a la suite d'un incident technique sur- 
venu lors d'une mission temporelle, le sympathique robot 
BB&12, dans I'espoir de retrouver son epoque, parcourut 
les siecles a la recherche de sa machine egaree... 



Qui VI tfTtfOT, 

fffetffl wit 



Stephana LOUIS 




SUITE DU 
N°139 



1220 PEN 5IF0R H=l TO 9:READ A,B!L 

OCATE A,B:PRINT CHR*(133> :TB(A,B)= 

2: NEXT 

1230 PEN 3:L0CATE 2,B:PRINT CHR*(1 

37) :TB(2,8>=5:L0CATE 19.4IPRINT CH 

R*(137) : TBI 19,41-5: LOCATE 19,21 ! PR 

INT CHR*(137> :TB(19,21)=5 

12-10 PEN 3 

1230 LOCATE 1.22JPRINT CHR*(142):T 

B ( 1 , 22 ) = 1 

1260 LOCATE 20,22:PRINT CHR*(144): 

TB<20,22)=1 

1270 LOCATE 1,25:PRINT CHR*(143)IL 

OCATE 20,25:PRINT CHR*(143)| 

12B0 LOCATE 1,23: PRINT CHR«tl39):P 

RINT CHR*(139) 

1290 LOCATE 20,23:PRINT CHR*(140H 

1300 LOCATE 20,24:PRINT CHR*(140>[ 

1310 BORDER 6IPEN 3:F0R n = l TO' 23! 

LOCATE 21,n:PRINT STRING* ( 2, 233 ): N 

EXT 

1320 PEN 6 

1330 LOCATE 2,23:PRINT "SCORE" 

1340 LOCATE 2,24:PRINT "GRAPPINS" 

1350 LOCATE 13,23:PRINT "VIES" 

1360 CR0N0=100 

1370 INK 5,Ei: INK 6,E 

1380 GOSUB 3390 

1390 INK 1,(RND*20)+1 

1400 gosub 4230il0cate 23.22ipen 2 
:print" super score=" ilocate 35,22 
iprint recdrdilocate 23,24:print" 
score=" i score! locate 23, 20: print" 
stage "| eta 1 : print "piece " f piece ! res 

TORE 446D 

1410 X*2!; Y=3:CT = 128: CC-129 

1420 ' 

1430 "***********************# 

1440 '** routine principale *# 

1 450 ' ************************ 

1460 ' 

1470 LOCATE X,Y:PEN 3IPRINT CHR*(C 

T> ILOCATE X,Y+lIPEN 2IPRINT CHR*(C 

C) 

14S0 JO-JOY(O) I A*-INKEY* 

1490 IF JO-1 OR A*=CHR*(240> THEN 

GOSUB 1670:S0UND 2 , son , 3 , 7 , 0, O, 1 

1500 IF J0=4 OR A*=CHR*(242) THEN 

CT=126:CC= 127: SOUND 2, son 1,3, 7, 0,0 

„i:GOSUB 1940 

1310 IF J0=8 OR A*=CHR*(243) THEN 

CT=128:CC= 129: SOUND 2,Bon2,5, 7,0,0 

, l: GOSUB 1790 

1520 CR0NO=CR0NO-i:SOUND l.CRONQ.l 

,7!IF CRONQ<=0 THEN INK 0,12,26:F 

OR n»100 TO 200:S0UND l,n, 1,7,0,0, 

5: NEXT: LOCATE x,yIPRINT" ": LOCATE 

x.y + HPRINT " "IINK 0,0:GOTO 2500 

1530 READ 5on!IF son=-l THEN RESTO 

RE 4460 ELSE READ son 1 , son2 : SOUND 

4,son,5,7:S0UND 1 , sonl , 5 , 7: SOUND 2 

,sDr,2,5,7 

1340 Sdn=5on+10: IF son=100 THEN so 

n = 10 

1550 if j0=16 or a*=chr*(224> then 
sound 1 , 100,3, 7,0,0, 5:g0sub 2080 

1560 if a*=chr*<70) then gosub 331 
o:locate x,y:print chr*<32) :locate 
x, y+i: print chr* (32) : x=int ( rnd*19 
i+i:y«int(rnd#17+2> : if tbix.yioo 

OR TB!X,Ytl)<)0 THEN NG=NG-1 : GOSUB 

3390! SC0RE=SC0RE-5QQ 
1570 IF TB(X, Y + 2) =0 JDR TB(X,Y+2)-2 

THEN GOSUB 2330 
1380 IF TB(X,Y+1)=2 THEN 2440 
1590 IF TB(X,Y+1>=5 THEN NG-NG+1:T 
B(X,Y+l)=OI / S'aUND 1,50,5,7:S0UND 1, 
500,5,7:G0SUB 3390 
1600 IF X«20 AND Y=20 THEN 2960 
1610 GOTO 1480 
1620 ' 

1 630 ' ****************** 
1640 'tt* vers le haut ** 
1650 '****************** 
1660 ' 

1670 IF TB(X,YK>4 THEN RETURN 
1680 IF T8(X,Y-1)-1 THEN RETURN 
1690 LOCATE X,Y+1:PEN 10IPRINT CHR 
•(136) 

1700 y=y-i:locate x,y:pen 3:print 

CHR*(CT) 

1710 LOCATE X,Y+i:PEN 2:PRINT CHR* 

(CO 

1720 SC0RE=SC0RE+1 

1730 RETURN 

1740 ' 

1750 ' ******************** 

1760 ' ** vers la dmite ** 

1770 ' ******************** 



1780 ' 

1790 IF X=20 THEN RETURN 

1800 IF TB(X+1,Y>=1 OR TB(X+1,Y+1) 

=1 THEN RETURN 

1810 IF TB(X,Y+1)«4 THEN LOCATE X, 

Y:PEN 10:PRINT CHR*! 136) ILOCATE X, 

Y+llPRINT CHR*( 1361 i GOTO 1840 

1820 IF X=20 AND Y-20 THEN 2960 

1830 LOCATE X,Y:PRINT CHR*(32):L0C 

ATE X, Y+l IPRINT CHR* (32) 

1840 X-X+i! LOCATE X t Y:PEN 3IPRINT 

CHRSICT) 

1950 LOCATE X,Y + 1'.PEN 2:PR1NT CHR* 

(CO 

I860 IF TB(X,Y+1)=2 THEN 2440 

1870 £C0RE=SCDRE+1 
1380 RETURN 
1390 ' 

1 900 ' ******************** 
1910 '** vers la gauche ** 
1920 '**#***************** 
1930 ' 

1940 IF X=l THEN RETURN 
1950 IF TB(X-1,Y)=1 OR TB(X-1,Y+1> 
=1 THEN PETURN 

1960 IF TB(X,Y+1)=4 THEN LOCATE X, 
YIPEN 10IPRINT CHR*( 136) :LOCATE X, 
¥♦1: PRINT CHRSI 136) :GOT0 1980 
1970 LOCATE X.YIPRINT CHR*(32):L0C 
ATE X,Y+i:PRINT CHR*132) 
1980 X=X-1 : LOCATE X, YIPEN 3IPRINT 
CHR*(CT) 

19«0 LOCATE X,Y+1IPEN 2:PRINT CHR* 
(CO 

2000 IF TB(X,Y+1)=2 THEN 2440 
2010 SC0RE=SC0RE+1 
2020 RETURN 
2030 ' 

2040 ' *********************** 
2050 '** lancer le grappin ** 
2060 ' *********************** 
2070 ' 

2030 if y<2 or ng<1 or tb(x,y+1)=4 

or tb(x,y-1)=1 then return 
2090 gx=x:gy=y-i: tb(x, y)=4: tbix, y+ 

1 ) =4 

2100 IF TB(GX,GY-1 ) =1 THEN 2210 

2110 LOCATE GX.GYIPEN 3:PRINT CHR* 

(137) :TB(GX,GY)-4 
2120 GY-GY-1 

2130 LOCATE GX.GY+IIPEN 10IPRINT C 
HR*(136) 

2140 SOUND l,GY+2000, 1, 7 
2150 GOTO 2100 
2160 ' 

2170 '********************** 
2180 ' ** aecroche grappin ** 
2170 •********■*#**#********* 
2200 ' 

2210 LOCATE GX,GY:PEN 10:PRINT CHR 
*(136) 

2220 PRINT CHR*(22)+CHR*(1) 
2230 GY=GY-1 
2240 LOCATE GX,GY:PEN 3:PRINT CHR* 

(137):S0UND 1,1000,5,7,1,1,1 
'2250 PRINT CHR*(22) +CHR»<0) 
2260 NG-NG-i: GOSUB 3390 
2270 RETURN 
2280 ' 

2290 ' ************************** 
2300 ' ** mort d'un peraannage *■* 
2310 '************************** 
2320 * 

2330 IF TB<X,Y)«4 THEN RETURN 
2340 LOCATE X.YtPRINT CHR*(32) 

2350 y«y+i:locate x,y:pen 3IPRINT 

CHR*(CT) 

2360 LOCATE X.Y+1IPEN 2:PRINT CHR* 

(CO 

2370 SOUND 1,Y+200,1,7 

2380 RETURN 

2390 * 

2410 '** mort #* 

2420 ************** 

2430 ' 

2440 LOCATE X,Y+1:PEN 6IPRINT CHR* 

(149) 

2450 CR0N0=DIF*100 

2460 LOCATE X,Y:PRINT CHR*(148) 

2470 IF X<10 THEN 2490 

2480 LOCATE X-2.YIPEN 2:PRINT CHR* 

(150) i CHR* (151) : SOUND 1 , 100,3, 7! SO 
UND 1 ,500, 10,7:FOR H-l TO 400:NEXT 

:LOCATE X-2,Y:PRINT CHR*132) |CHR*( 

32):locate x,y:print chr*(32) :loca 

TE X.Y+IIPEN 6:PRINT CHR*(133) : got 
2300 

2490 LOCATE X+l, YIPEN 4:PRINT CHR* 
(150) 1CHRS( 151) : SOUND 1 , 100, 3, 7: SO 
UND 1,500, 10, 7IF0R H=l TO 400:NEXT 

:locate x+1,y:print chr*(32) (chr*( 
32):locate x,y:print chr*(32) :loca 
te x,y+i:pen 6iprint chr*(133> 

2500 VIE=VIE-lIcrono=DIF*100 

2510 IF VIE<1 THEN 2390 

2520 GOSUB 3390 

2530 GOTO 1410 



254 ' 

2550 ' *************** 

2560 '** game over ** 

Z370 ' *************** 

2580 ' 

2590 INK 1,0,261 INK 2, 12,5: INK 3,3 

,8IPAPER OIBORDER 5,4 

2600 INK 0,E,E1 

2610 PRINT CHR*(22) +CHR*(1) 

2620 PEN 13IL0CATE 27.12IPRINT "GA 

ME-OVER" 

2630 CRONO-100 

2640 PRINT CHR*(22) +CHR*(0) 

2650 FOR H-100 TO 400 : SOUND 1,H,1 

,7,0,0, INT (h/ 100) I NEXT 

2660 INK O.OIINK 1,26: INK 2, 12: INK 

3,6:PEN 2IF0R N-l TO 2HL0CATE 1, 
N: PRINT STRING* (20, 32) INEXTI BORDER 

6 
2670 IF SCORE>RECORD THEN RECORD=S 
CORE ELSE GOTO 2840 

2680 LOCATE 1,2IPRINT "FELICITATIO 
NS! " IPRINT 

2690 PRINT"VOUS AVEZ BATTU" ! PRINT : 
PRINT"LE RECORD" 
2700 PRINTSPRINTIPRINT "ENTREZ vot 

re nom: ■ 

2710 FOR H-l to soo:next 
2720 N*="" 
2730 HC=1 

2740 PRINT CHR*(24) 
2750 A*=" " I A«=INKEY* 
2760 IF A«>"" THEN 2780 
2770 GOTO 2750 

2780 IF A*=CHR*(13) THEN 2830 
2790 LOCATE HC,12:PRINT A*iIN*=N*+ 
AS 

2800 SOUND 1,HC+HC+100,4,7 
2810 HC=HC + 1IIF HO20 THEN 2830 
2820 GOTO 2770 
2830 PRINT CHR*(24) 
2840 CLS 

2850 LOCATE S,3IPRINT "RECORD: "IRE 
CORD! "PAR "J 

2860 INK 1,6,3IPEN 1IPRINT CHR*(24 
)ENSIPEN OIPRINT CHR*(24) 
2870 LOCATE 3.12IPEN 2IPRINT "PRET 
A TENTER UNE NOUVELLE AVENTURE" 

2880 FOR H=l TO 500INEXT 

2890 FOR N=l TO 30001 NEXT 

2900 FOR H=2 TO 21 I FOR C = l TO 20! T 

B(C,H)=o:next:next:goto 170 

2910 * 

2920 ' *******■»**********#***#**** 

2930 ' ** changement de tableau ** 

2940 ' **##*********#***#********* 

2930 ■ 

2960 SCORE=SCORE+100!PIECE=PIECE+1 

!IF piece=ll THEN GOSUB 4490:G0SUB 

3390 
2970 RESTORE 4210 
2980 FOR H=l TO 5:READ A.b.cISOUND 

l,a, 15,7:S0UND 2, b, 15, 7: SOUND 4,c 
,15,7!NEXT 

2990 FOR H=2 TO 21 IFOR C-l TO 20: T 
B(C,H)-0!NEXT:NEXT 
3000 GOSUB 3720 

3010 IF EC/5-INT(EC/5) THEN 3480 
3020 EC-EC+l:IF EC-11 THEN 3190 
3030 IF EC=2 THEN E»24: El-23: NB«1 1 

:nl*17:nc=18:restore 3870:goto 114 



3040 IF EC=3 THEN E-4 ! El-8 ! NB-12: N 
L=16:NC-18:REST0RE 3910:G0T0 1140 
3050 IF EC-4 THEN E-3: El-6: NB»13: N 
L-14:NC=2i:REST0RE 3950:G0T0 1140 

3060 IF EC=5 THEN E=l I El=2 I NB=19I N 
L*13!REST0RE 3990IG0T0 1140 
3070 IF EC-6 THEN NB»1 1 : NL-1 : NC-1 1 
JRESTORE 4030:GOTO 1140 
3080 IF EC-7 THEN NB-13! NL=1 : NC=29 
I RESTORE 4070: GOTO 1140 
3090 IF EC=8 THEN NB= 131 NL=1 I NC=14 
! RESTORE 4110IG0T0 1140 
3100 IF EC=9 THEN NB=13I NL-1 I NC= 18 
IRESTORE 4150IG0T0 1140 
3110 IF EC-10 THEN NB-17 I NL-19 I NC- 
6IREST0RE 4180IG0T0 1140 
3120 ' 

3130 * #**■)«*#****##*#*#*##* 
3140 '** hellcoptere fin ** 
3150 ■ ************♦****+**# 
3160 ' 

3170 FOR n=l TO 21IL0CATE l.nlPRIN 
T STRING*(20,32) :NEXT 
3180 LOCATE 1,21: PRINT STRING*(20, 
250) I INK 2,26,0 

3190 PEN 1 JLOCATE 10,20IPRINT CHR* 
(232)+CHR*(255) : LOCATE 10, 21 I PRINT 
CHR* < 253 ) +CHR* ( 234 ) : LOCATE 1 , 1 : PR 
INTIPRINT "VOUS AVEZ REUSSI " I PRINT 
"VOTRE MISSION"IPRINT:PRINT "B.R.A 
. V . ! ! " 

3200 SPEED INK 2.2IPL0T 144,93,2:0 
RAW 169,93 
3210 ENV 1,3,-17,2 
3220 FOR n=l TO 300 STEP 7 



3230 SOUND 3, 430-n , 10, 12, 1 , , 2 
3240 SOUND 2 , 46-n/ 10, 10 , 10, 1 , , 11 

3250 NEXT 

3260 FOR >=1 TO 100 

3270 SOUND 5, 450-n , 10, 12, 1 , , 2 

3280 SOUND 2 , 46-n/ 10, 10, 10, 1 , , 1 1 

3290 NEXT 

3300 CLS: GOTO 2660 

3310 ' 

3330 ' ** reapparltlon apres mort** 

3340 ' 1Ht*##*******#*****##*#**##*# 

3350 ' 

3360 LOCATE X,Y:PRINT CHR*(32):L0C 

ATE X,Y+i:PRINT CHRSI32) 

3370 X=INT (RND*19) +11 Y=INT ( RND#1 7+ 

21IIF TB(X,Y-1)<>0 OR TB(X,Y)<>0 

R TB(X,Y+1X>0 THEN 3370 

3380 NG=NG-l: GOSUB 3390: SCORE-SCOR 

E-500I RETURN 

3390 PEN 3IL0CATE 7,23:PRINT SCORE 

3400 LOCATE 11,24:PRINT NG 

3410 LOCATE 17,23:PRINT VIE 

3420 RETURN 

3430 ' 

3440 '#*#*#****#**#**********####* 

** 

3450 '## spec ial bonus tempore 1 

## 

3460 '*#**#*******##*####**#####*# 

#* 

3470 ' 

3480 RESTORE 4220 

3490 FOR n=l TO 25IL0CATE l,n:PRIN 

T STRING*(20,32) : SOUND l,n,l,7:NEX 

T 

3500 LOCATE 24,10:PRINT "BRAVO vo 

us avez ":LOCATE 24,I1:PRINT "atte 

int 1 'epoque" I LOCATE 24.12IPRINT " 

suivantel " : LOCATE 24, 131 PRINT " 1000 

ans apres" 
3510 B0N=1000IL0CATE 4,18:PRINT "S 
CORE! " 

3520 PEN 3:L0CATE 10,3:PRINT CHR* ( 
152) +CHRX< 153) 

3530 PEN 2:L0CATE 10,41PRINT CHR* t 
134)+CHR*(155> 

3540 LOCATE 10,5:PRINT CHR*(156)+C 
HR*(157) 

3550 LOCATE 10,6:PEN IOJPRINT CHR* 
(143) |CHRS(143) 

3360 LOCATE 8,7:PRINT STRING*(6,CH 
RCC143) ) 

3570 FOR H=l TO 6IREAD A,b,c:SOUND 
I , &, 40, 7: SOUND 2,b,40,7:S0UND 4,C 
,40, 7: NEXT 
3580 PEN 3IPAPER OIPRINT CHR*(24) 

3590 FOR H=l ;T0 1200INEXT 

3600 FOR H=l 'TO 100 I SCORE=SCORE + 10 

I B0N-B0N-10IL0CATE ll,18lPRINT SCO 

REILOCATE 7,14:PRINT BONISOUND 1,2 

00,1,7:NEXT 

3610 PRINT CHRS(24) 

3620 SYMBOL 1 30, 235, 129,*53 , 133, 16 

3, 189, 129,235 

3630 SYMBOL 131,255,129,165,129,12 

9, 165, 129,255 

3640 SYMBOL 139,255, 129, 165, 129, 12 

9, 165, 129,255 

3650 SYMBOL 140,255,129,165,129,12 

9, 165, 129,255 

3660 SYMBOL 143,255,129,165,129,12 

9, 165, 129,255 

3670 SYMBOL 141,255,129,253,133,16 

5, 189, 129,255 

3680 SYMBOL 132,255,129,165,129,12 

9, 165, 129,255 

3690 INK 0,0: PAPER 

3700 FOR N-10 TO 18!L0CATE 24,N:PR 

INT STRING* (16, 32) : NEXT : ETA-ETA+1 

3710 EC=EC+1IG0T0 3030 

3720 FOR n=3 TO 21IL0CATE 20,nIS0U 

ND 1, 123, l.SlPRINT CHR* ( 191 ) I NEXT 

3730 FOR n=l TO 150INEXT 

3740 FOR n=21 TO 5 STEP -llLOCATE 

20,n!S0UND 1 , 234 , 1 , 51 PRINT " "INEX 

T 

3750 LOCATE 20.3IPEN 3IPRINT CHR*( 

126)!PEN 2IL0CATE 20.4IPRINT CHR*( 

127) 

3760 FOR n=l TO lOOINEXT 

3770 RETURN 

3780 ' 

3790 ' ****************** 

3800 '** tableau data ** 

3810 ******************* 

3820 ' 

3830 DATA 2,3,19,5,8,6,9,6,10,6,11 

,6,12,6,13,6,16,9,17,9,7,11,8,11,9 

, 11, 10, 11,2, 14,3, 14, 15, 14, 16, 14, 17 

, 14, 10,15, 11,15 

A SUIVRE... 



LA MISSION 



Dans le but meritoire et salutaire de souffler un incendie 
devastateur, effectuez un periple mouvemente en compa- 
gnie de dynamite... 

Jean-Christophe BELLISSIME 



~^T7/ Tl rguiSe. PARMi" IK 




0N NE ftTE 



SUITE DU N°139 



6460 


REM ** GAUCHE ** 


6470 


IF P ! 2 THEN RETURN 


6480 


P = P - 1: UTAB 13 j HTAB P 




4 BAJ: RETURN 


6490 


REM ** OROITE ** 


6500 


IF P > 15 THEN RETURN 


6510 


P ■ P 4 1: UTAB 13: HTAB P 




4 BA*: RETURN 


6520 


REM *** T1R BATEAU *** 


6530 


FOR Tl = 12 TO 6 STEP - 




•/TAB Til HTAB P 4 2: 4 "n 




S = PEEK (49200) * PEEK 




- 16336): NEXT TI 


6540 


FOR E * 12 TO 6 STEP - 2 




yTAB E : HTAB P * 2 : 4 " " : 


EXT E 




6550 


IF P » 2 > PO » AND " » 


2 < PO 4 3 THEN GOSUB 6860 


6560 


RETURN 


6570 


REM *** BOMBE *** 



6580 DEBOM = DEB0M - 1 : '..'TAB DEB 
OM : HTAB EN ••» 1 : 4 ■ , • 1 yTAB 
DEBOM * 1 : HTAB EN 4 1 : i " " 

6590 IF DEBOM = 14 THEN S » PEE 
K (49200) ♦ PEEK (49200) 4 PEEK 
(49200) i BOM ■ 

6600 IF DEBOM ■ 14 AND EN = P TH 
EN 6640 

6610 IF DEBOM = 14 AND EN = P ♦ 

1 THEN 6640 

6620 IF DEBOM = 14 AND EN = P 4 

2 THEN 6640 
6630 RETURN 

6640 REM »»* BOUM BATEAU »*» 
6650 FOR I • 1 TO 15 
6660 OTAB 13: HTAB P 4 1: 4 "gh 
i":S ' PEEK ( - 16336) * PE 



EK ( - 


16336) 4 PEEK (4920 


) 4 p 


EEK ( 


- 16336) ♦ PEEK (49200): UT 


AB 13' 


HTAB P 4 u 4." " : 


NEXT 


6670 


y = V - 1: VTAB 23: HTAB 12 


y 

6680 


& ■ ": VTAB 23: HTAB 12: 4 


FOR I = 1 TO 900: NEXT I 


6690 


yTAB 1 3 : HTAB- P : 4 BAt 


6700 


GOTO 6290 




6710 


REM ****** 




6720 


READ PO 




6730 


IF PO = 3 THEN TEMPS 


= 2: y 


TAB 6: 


HTAB PO 4 2: 4 " >: 


RESTOR 


E : GOTO 6750 




6740 


VTAB 6: HTAB PO: 4 " 


JK " 


6750 


RETURN 




6760 


REM ****** 




6770 


READ PO 




6780 


IF PO = 3 THEN TEMPS 


= 3: y 


TAB 6: 


HTAB PO 4 2 : 4 " " : 


RESTOR 


E : GOTO 6800 




6790 


yTAB 6: HTAB PO: 4 " 


Ira " 


6800 


RETURN 




6810 


REM ****** 




6820 


READ PO 




6S30 


IF PO « 3 THEN TEMPS 


= 1: y 


TAB 6: 


HTAB PO 4 2 : 4 " " : 


RESTOR 


E : GOTO 6B50 




6840 


VTAB 6: HTAB PO: 4 " 


op " 


6850 


RETURN 




6B60 


REM *** BOOM OAISSEAU *** 


6870 


FOR I = 1 TO 20 




6B80 


OTAB 6: HTAB P0 4 1 : 


4 "gi 



PEEK ( 
16336) 



6890 S = PEEK (49200) 4 

- 16336) 4 PEEK ( 
4 PEEK (49200) 

6900 yTAB 6: HTAB P0 4 1:4" 
": NEXT 1:SC0 = SCO * 50 
RESTORE : RETURN 
REM ** TIR yAISSEAU ** 
FOR I = 7 TO 13 STEP 2: VTA 
B I: HTAB PO 4 2: 4 "n": NEXT I 
6940 S = PEEK (49200) 4 PEEK ( 

- 16336) 4 PEEK (49200) 
6950 FOR E = 7 TO 13 STEP 2: VTA 

B E : HTAB PO 4 2 : 4 " " : NEXT E 
6960 IF PO 4 2 > P 4 AND PO 4 
4 THEN 6640 
RETURN 

REM *** FIN *** 
FOR I = 130 TO 135: POKE 2 
1 1 CALL 62454: NEXT I 
FOR I = 6 TO 1 B : yTAB I : HT 



6910 
6920 
6930 



2 < P 
6970 
6980 
6990 



7020 NEXT I 

7030 OTAB B: HTAB 1: 4 "yOUS Ay 
EZ PERDU yOTRE DERNIER BATEA 
U" 
7040 UTAB 16; HTAB 1: 4 "yOULEZ 

IJOUS REJOUER : " : 
7050 GET R* 

7060 IF R* ■ "0" THEN 4 "0" 
R I = 1 TO 200: NEXT I: PRINT 
: RUN 1010 
7070 IF R» = "N" THEN 4 "N" 
R I ■ 1 TO 200: NEXT I: TEXT : 
E : END 
7080 REM ** FIN GAGNANTE ** 
7090 FOR I » 1 TO 25:S ■ PEEK 
(49000) 4 PEEK ( - 16336): N 
EXT I 
7100 HGR : POKE 49234,0 
7110 FOR I = 2 TO 39: OTAB 1: HT 
AB I: 4 "w*( yTAB 5: HTAB I : 4 "4 
" : NEXT I 
7120 FOR J = 2 TO 4: UTAB J: HTA 
B 1 : 4 "<": yTAB J: HTAB 40: 4 ") 
■ : NEXT J 
7130 VTAB 3: HTAB 16: 4 "LA MIS 

SI ON" 
7140 UTAB 7: HTAB 1: 4 "> VOUS 
AyEZ ATTEIND LA DERNIERE BAS 
E." 
7150 VTAB 10: HTAB 1 : 4 "> L'lN 
CENDIE EST ETEIND GRACE A LA 
DYNAM ITE." 
7160 UTAB 14: HTAB 1:4") UOUS 
RECEVEZ LA LEGION D'HONNEUR 

7170 UTAB 18: HTAB 8: 4 "1 REJO 

UER UNE NOUUELLE PARTI E" 
7180 VTAB 20: HTAB 8: 4 "2 QUIT 

TER' 
7190 UTAB 23: HTAB 8: 4 "REPONS 

E : " ; 
7200 GET R* 

7210 IF R* = *1" THEN 4 "1*1 FO 
R I = 1 TO 200: NEXT I: PRINT " " 
: RUN 1O10 
7220 IF R* ■ "2" THEN 4 "2": FO 
R I = 1 TO 200: NEXT I: TEXT : HOM 
E : END 
7230 IF R* < > "1" OR R* < > 
"2" THEN S = PEEK (49200): G 
OTO 7200 
7240 REM *** TRAITEMENTS DES ER 

REURS *** 
7250 P » PEEK (222) 
7260 ERL ■ PEEK (219) * 256 4 p 
EEK (218) 
7270 HGR : POKE 49234,0 
7280' FOR I = 40 TO 42: POKE 28, 

1 1 CALL 62454: NEXT I 
7290 UTAB 10: HTAB 2: 4 "ERREUR 

" jP 
7300 UTAB 12: HTAB 2: 4 "A LA L 

IGNE " jERL 
7310 GET R*: TEXT : HOME 



LISTING 3 



7000 
AB 1 
7010 



k 



0800- 
0808- 
0810- 
0818- 
0820- 
0828- 
0830- 
0838- 
0840- 
0848- 
0850- 
0858- 
0860- 
0868- 
0870- 
0878- 
0880- 
0888- 
0890- 
0898- 
08AO- 
08A8- 
08BO- 
08BS- 
08C0- 
08C8- 
08DO- 



A9 FE 
A9 4C 
F6 03 
A9 00 
A9 90 
BD 85 
84 04 
03 C9 
20 85 
C9 IF 
C9 5F 
E9 20 
06 07 
18 A9 
25 B9 
90 85 
A4 09 
18 A5 
09 C9 
80 90 
FO FD 
23 23 
23 23 
23 23 
00 80 
28 A8 
50 DO 



85 73 A9 
8D F5 03 
A9 90 8D 
85 03 A9 
85 37 20 
36 A9 9E 
AO 00 84 
81 DO 09 
03 4C 9A 
30 4E C? 
10 03 18 
85 07 06 
26 08 06 
91 65 08 
A2 90 85 

05 18 AO 
Bl 07 A4 

06 69 04 

07 FO 05 
A4 04 AD 
20 20 21 
20 20 21 
20 20 21 
00 BO 00 
23 A8 28 
50 DO 50 
FC 



8F 85 74 
A9 18 8D 
F7 03 60 
30 85 36 
D5 DA A9 
85 37 60 
08 8D 00 
A5 03 49 
90 29 7F 
41 30 07 
65 03 38 
07 26 08 
07 26 08 
85 08 A4 
06 B9 BA 
00 84 09 
24 91 05 
85 06 A5 
E6 09 4C 
00 03 4C 
21 22 22 
21 22 22 
21 22 22 
80 HO 80 
A8 28 A8 
DO 50 DO 




9100- 

9108- 

* 1 i - 

9118- 

9120- 

9128- 

9130- 

9138- 

9140- 

9148- 

9150- 

9158- 

9160- 

9168- 

9170- 

9178- 

9180- 

91 

9190- 

9198- 

91A0- 

91A8- 

9180- 

91B8- 

91C0- 

91C8- 

91D0- 

91D8- 

91E0- 

91E8- 

91F0- 

91F8- 

9200- 

9201 

9210- 

9218- 

9220- 

9228- 

9230- 

9238- 

9240- 

924S- 

9250- 

9258- 

9260- 

9268- 

9270- 

9271 

921 

9288- 

9290- 

9298- 

92A0- 

92A8- 

92B0- 

92B8- 

92C0- 

92C8- 

92D0- 

92D8- 

92E0- 

92E8- 

92F0- 

92F8- 

9300- 

9308- 

9310- 

9318- 

9320- 

9328- 

9330- 

9338- 

9340- 

«348- 

9350- 

9358- 

9360- 

9368- 

9370- 

9378- 

9380- 

'388- 

9390- 

9398- 

93A0- 

93A8- 

93B0- 

9368- 

93C0- 

93C8- 

93D0- 

93D8- 

93E0- 

93E8- 

93F0- 

93F8- 

9400- 



1E 3F 
00 00 
03 43 

07 
00 00 
58 60 
4E 64 

39 13 

08 03 
00 00 
00 00 
60 70 
1C 3E 
3C 36 
IE 3F 
IE 3F 
38 3C 
3F 3F' 
1C 06 
3F 3F 
IE 3F 
IE 3F 
00 1C 
00 1C 
70 38 
00 3E 
07 OE 
IE 3F 
7F 7F 
IE 3F 

F 3F 
IE 3F 
IF 3F 
3F 3F 
3F 3F 
IE 3F 
33 33 
3F 3F 
BO 
33 3B 
03 03 
63 77 
33 33 
IE 3F 
IF 3F 
IE 3F 

F 3F 
IE 3F 
3F 3F 
33 33 
33 33 
63 63 
33 33 
33 33 
3F 3F 
IF IF 
03 07 
IF IF 
OC IE 
80 80 

06 OC 
00 00 
00 03 
00 07 
00 00 
70 
7F 1C 
7F 1C 

07 
00 40 
00 01 
00 40 
00 01 
03 03 
45 64 

00 40 
30 60 

40 70 

01 07 

08 1C 
06 OE 
00 00 
00 OF 
00 00 
7F 7F 
7F 7B 
36 7E 
00 00 
03 03 
OE IE 
3A 6D 
FF FF 
CB 



XERAGONE 



En quete de richesses au fin-fond de I'espace, tentez aux 
commandes de votre vaisseau spatial special, de recupe- 
rer quinze inestimables diamants eparpilles sur un myste- 
rieux meteore... 

Jean-Marc BELORGANE 
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SUITE DU 
N°139 



6960 : 

6970 PL0T3B+Z.5, "_" :PL0T7+Z,6, " I j 
" :PL0T31+Z,6, "hgi m" 

6980 PL0T4+Z,7, "oqrs ' 

h" + CHRt<127>+":>:: a "+CHR* 
I 126) 

6990 REM 

7000 PL0T4+Z.8. "n t 

pd j m" 
7010 PL0T5+Z,9, " ' ) 

cd ee" 
7020 REM 

7030 PLOTZ, ID, "b i a 

i " 
7040 PL0T1+Z, 11, "i « a 

mt A " 
7050 REM 

7060 PL0T1+Z,12,"J f « a 

7070 PL0T2+Z, 13, "ea k J h"+CHR 
*<127)+"d mm hd #" 
7080 REM 



7090 PL0T3+Z, 14, "a 



ee cy 



7100 PL0T3+Z, 15, "z 1 hg 

la >■ 
7110 REM 

7120 PL0T2+Z, 16, " > A i 

A j hylt" 
7130 PL0T2+Z, 17, "# # me) 

A ee i " 
7140 REM 



7150 PLOtl+Z, IB,') ) 

* k" 

7160 PL0T1+Z, 19, "a j 

k J" 

7170 REM 

7180 PL0Tl+Z,20,"j ue 

1 1" 

7190 PL0T2+Z,21, "ee 
d A j" 

7200 REM 

7210 PL0Ta+Z,22," hg 



cd 



(" 

7220 PL0TB+Z.23," !" ! PL0T20+Z , 23, " 
i ■ :PL0T31+Z,23,CHR*<126> 

7230 PLOT B+Z, 15, CHR*( 12>+CHR*< 1 > 
+ "J"+CHR»m+CHRS<8) 

724U PLOT 13+Z , 21 , CHR* ( 12 ) + CHRS ( 2 ) 
+"J"+CHR»<7>+CHR«<B> 

7250 PL0T29+Z, 15, CHRS ( 121+CHR* < 5 > 
•+"J"+CHR*<7)+CHR«<B) 

7260 PL0T23+Z, 18, CHR*< 12I+CHRK3) 
+"J"+CHR*<7>+CHR«C8) 

7270 PLOT l+Z,22,CHR*(12)+"J"+CHR 
*<8) 

7280 PL0T33+Z, 10, CHR* < 12 > +CHR» ( 6 ) 
+"="+CHR*<7)+CHR*<B) 

7290 S0T07730 

7300 i 

7310 REM ========-.========-===.== 

7320 REM =( DESSIN DU 3eme PAYSAG 
E ) = 
7330 REM ==.==========.==»====-===» 

7340 ! 

7350 PLOTZ, 6, "b w" 

7360 PL0T1+Z.7, "cd )a 

hgeef " 
73 70 REM 



7380 PL0T3+Z.8, "ef #a 

"+CHR*<126>+" rg X k" 

7390 PL0T3+Z,9, "hg hg a 



7410 PL0T2+Z, 10, "2 

" ! cd p # j" 
7420 PL0T3+Z, 1 1 , " i 



7440 PL0T3+Z, 12," J k 

n 1 _ a y" 
7450 PL0T4+Z, 13, "ee i 



7470 PL0T7+Z, 14,'Jhaf 

R*t34)+" ! l J q A 

748U PL0T7+Z, 15, "m n 



7490 REM 

7500 PL0T5+Z, 16, " hg 

i A p I " 
7510 PL0T3+Z,17, " hg 
X J # # cd" 
7520 REM 



7530 PL0T2+Z, lB,"m 
11 n ) p n 
/540 PL0T1+Z, 19, "m 
#lee!\* it a 
7550 REM 



7560 PLOTZ, 20, "1 q rg e 
e ) q rd #" 

7570 PL0T10+Z,21,"ee 
# ee ee" 

75B0 REM 

7590 PL0T25+Z,22, "m" IPL0T24+Z, 23, 
" t" 

7600 PLOT 2+Z, 14,CHR*< 12>+CHR*(1 ) 
+"J"+CHfl*(7>+CHR*(B> 

7610 PLOT 9+Z,22,CHR*( 12)+CHR*<2> 
+"J"+CHR*(7)+CHR»<8> 

7620 PL0T15+Z,21,CHR»(12)+CHR*<5> 
+"J"+CHR»<7)+CHR*<B> 

7630 PL0T20+Z , 20, CHR» ( 12 ) +CHR* ( 3 ) 
+"J"+CHR»<7)+CHR«<8> 

7640 PL0T26+Z, 8, CHR*( 12)+CHR* ( 6 ) 
+ " =» +CHR* < 7 ) +CHR* (B ) 

7650 PL0T3O+Z, 22, CHR*< 12 ) *" J" + CHR 
*(8) 

7660 PL0T34+Z , 22, CHRS ( 12 > +" J" +CHR 
»(B) 

7670 SOT07730 

76B0 : 

7690 REM =====»—«=======»=====-= 

7700 REM =<AFFICHAGE DES PARAMETR 
ES>« 
7710 REM .-—.—.—«=,■——»- 

7720 : 

7730 F0RN=0T08STEP4 

7740 PLOTX (ZB,N),Y(ZB,N >,"»■: NEXT 

7750 FORN=0T02! D ( N > =0 : NEXT : T»=CHR 
«<5> 

7760 PL0T6+Z , 25 , 2 : PLOTZ , 26, 2 : PLOT 
31+Z,26,2:PL0T30+Z,25,7:B=-1:G0SUB 
8330 

7770 PLOTZ, 24, T*+"VENTS CARBURANT 
■*T»*«VIES ALTITUDE P0USSEE":Y=2:G 
0SUBB530 

77B0 PL0T6+Z,26,T*+" JPOINTS" +CHR» 
( 12)+CHR*(0)+"DANGER"+T*+" RECORD: 

7790 PL0T23+Z , 26 , 8 : PLOT 1 0+Z , 25 , M I 
D*(STR*CL),2) :PL0T18+Z,25,MID*<STR 
•(4-1), 2) 

7800 PL0T32+Z , 26, MI D* ( STR* ( RE ) , 2 ) 
:PL0TZ+1, 26, LEFT* < "00000", 5-LEN1P0 
t) )+P0* 

7B10 F0RN=1T05:P0KE*BBA2+N,ASC<MI 
D*( "BONUS" , N, 1 ) ) :NEXT:P0KE#BBA2, 16 

7B20 F0RN=#BE82T0#BB85:P0KEN, 17!N 
EXT 

7830 F0RN=#BE86T0ttBBBB SPOKEN, 19 :N 
EXT 

7B40 F0RN=#BE8CT0#BBA1 :POKEN, 1B=N 
EXT 

7850 P0KE»EBB1, 16 i PL0T2+Z, 25 ,5 

7B60 PL0T4+Z,25,7:PL0TZ,25,7 

7870 PL0T3+Z,25, "0" : 00=48034 : RETU 
RN 

7890 Y=0:X=3 = GOSUE86DO 

7900 X=7:G0SUBB600:X = 11 : GOSUE8600 

7910 lFESTHENPING 

7920 PLOTX,0," " : PLOTX, 1 , " \\" : Y= 

7930 GOSUB8600 'Affichage vaissea 

7940 GOSUE8940: RETURN 

7950 REM 

7960 Y=0 : X«-3 : G0SUB8600 : X »7 : B0SUE8 
600 

7970 G0T0791D 

79B0 REM 

7990 Y»0 : X=3 ! G0SUB8600 ' G0T079 1 
8000 : 

8020 REM =( ZONE DE SOUB/PROGRAMM 
E3) = 

8040 ! 

8050 REM ( Montee Rapide ) 

8060 Z*=" , , , " :GOSUEB560:N=Y!E=9 
B070 F0HY=NT0N-3STEP-1 i GOSUEB500 
80B0 PLOTX, Y, "7K" iPLOTX,Y+l, " ;<" 
8090 60SUE8530 : 60SUE8330 : FORNN= IT 

01 1 
8100 NEXTNN:G0SUE8580:NEXTiG0BUE8 

500 
8110 G0BUEB600 : G0T06080 
8120 REM ( Deplacement Gauche 



8130 Zt= 



" :G0BUE8560!X=X-1!B 



_ 5 

8140 IF(SCRN(X, Y)ORSCRN(X, Y+l) )<> 
32 1 HEN9040 

8150 PLOTX, Y, "M " : PLOTX, Y+l, " ) . " 

8160 GOT060BO 

8170 REM ( Deplacement Droite 

81B0 Z*="a a a" :G0SUBB56Q!X = X + 1 :B 



B190 IF (BCRNlX+1, Y) 0R3CRN( X+l , Y+ 
) )- ..32THLN9040 
8200 PLOTX, Y, " ' ( " 5PL0TX, Y+l , "-*" 
8210 G0TU608Q 
8220 REM < Descente ) 



823U !t- 



' !G0SUBB56D:Y=Y+l:B 



8240 IF(BCRN<X,Y+1)0RSCRN<X + 1, Y+l 
) 1O32THEN9040 

B250 IFSCRNIX,Y+2)=101ANDSCRN(X+1 
,Y+2)=101THEN9510 

8260 PLOTX, Y, "' (" : PLOTX, Y+l, 

8270 G0T06080 

8280 REM ( Mon+.ee simple ) — 



8290 Z*= 



:G0SUBB560:Y=Y-1 SB 



N 



8300 G08UES500: PLOTX, Y, "7K" 
8310 PLOT X , Y+ 1 , " i < " : GOT06080 
B320 REM — ( Affichage du carburan 

t )- 
8330 L=L-(1+B):IFL<=0THEN8360 
8340 IFL<50THENPL0T6+Z,24,6 
8350 PLOT 10+Z,25,MIDt<STR»(L>,2)+ 

" " : RETURN 
B360 W=W+1:IFW=1THEN8370ELSERETUR 

N 
8370 PL0T8+Z , 25 , CHRt < 1 2) +CHR* 1 2 ) + 

" 000 " +CHR* ( 8 ) : IFESTHENG0SUEB850 

. 8380 RETURN 
8390 REM ( Sondage comete )- 



8400 DR= ( SCRN < U, G ) ORBCRN < U+ 1 , G ) OR 
SCRN(U+2,G))<>32 

B410 IFDRTHENJ = l:P0P:G0T09040ELSE 
PLOTU.G, -HX&* SRETURN 

8420 REM ( Effacement come+.e ) 

8430 PL0TU+2,G, RETURN 

8440 REM < Effacement butin )- 

8450 WAIT50:PL0TX-1,V," " ! RETUR 
N 
8460 REM ( Bruii+.age ) 

8470 1FESTHENS0UND6 , 555 , : PLAY3, 3 
,4, 15 

8480 RETURN 

849G REM ( Bondage vaisseau )- 

8500 IF(SCRN(X,Y)0RSCRN(X+1,Y) )<> 
32THENP0P : G0T09040 
8510 RETURN 
8520 REM ( Affichage alti+.ude ) 

8530 A=(25-Y)*100 
, S540 PL0T24+Z,25,MID*<STRt(A) ,2)+ 
" " : RETURN 

8550 REM — (Aff ichage/Son7Ef f aceme 
nt )- 

8560 PL0T32+Z , 25 , Z* : G0SUB6470 : GOT 
08580 

8570 REM ( Effacement vaisseau 

8580. PLOTX, Y, " ": PLOTX , Y+l , " ": 
RETURN 
8590 REM < Affichage vaisseau ) 

8600 PLOTXiY, "' <" : PLOTX, Y+l, " )»": 
RETURN 

8610 REM-C Entete de presentation 

)- 

8620 CLSl CALL#40O: PAPERO : I NK7 : CAL 
L#40D 

8630 F0RN-1T05 1 PRINT :NEXT: RETURN 

864G REM — Attente d' 1 tauche appu 
yee- 

8650 M*=" 

APPUYER. SUR. UNE. TOUCH 

E. .S.17. P. " 

8660 M=l:J-l!PL0TZ,26,J:REPEAT 

8670 PL0TZ+2,26,MIDi(M»,M,37) :M=M 
+ 1 

86B0 IFM>LEN(Mt)THENM=l !J»J+1ELSE 
8700 

B690 IFJ<8THENPL0TZ,26, J1M-1ELSEJ 
"IS PLOTZ, 26, J 

8700 WAIT 7:UNTILPEEK(#20B)O#3B 

B710 RETURN 

8720 REM — 1 Test choix des touche 
s )- 

8730 IFTT-ttA9THENTt="ESC" SG0T0BB1 


8740 IFTT=#ADTHENT*="DEL" iGOTOBBl 


8750 IFTT=*AFTHENTt=" RETURN" :GOTO 
8810 

8760 IFTT=#9CTHENT»»CHRt(33) !GOTO 
B810 

8770 IFTT-#B4THENTt=" ! " :G0T0BB10 

8780 IFTT=^ACTHENTt~CHRt(94) I GOTO 
8810 

8790 IFTT=*BCTHENT*=CHR* ( 96 ) s GOTO 
8810 

8800 IFTT=#84THENT*="ESPACE" 

8810 PRINTCHR*(134)T* 

8820 RETURN 

B830 REM < Bruit de fond > 

B840 BOUND 1,0,1: S0UND2 ,0,1: S0UND3 
,0, 1 

8B50 PLAYO, 1 , 0, 0:B0UND4, 500, 5+Z :R 
ETURN 



8060 REM ( Caracteres normaux ) 

8070 I FPEEK ( #D000 ) - 1 69THENC ALL#F8 
00: RETURN 

8B80 CALL#F89E: RETURN 

8890 REM- Redefinition de i &._[ M\ 
< ) - 

8900 D0KE3 , »9322 : P0KE#93 1 D , 90 

8910 CALL*9300: RETURN 

8920 REM Changement de Vitesse 

8930 D0KE#306,#FFFF:RETURN 

B940 D0KE»306,#2710:RETURN 

8950 IFPEEK < #D000 ) = 1 69THENCALL»E7 
6A: RETURN 

8960 CALL#E6CA: RETURN 

8970 I FPEEK ( #D000 ) = 1 69THENCALL#E9 
3D: RETURN 

8980 CALL#E804: RETURN 

8990 : 

9000 REM =======«■=.==========•==:= 

9010 REM =( ACCIDENT ET EXPLOSION 
)- 

9020 REM ========•==«=========== 



':T=0:ZW=0 



9030 : 

9040 PL0T32+Z.25," 
:H«0 

9050 PL0T15+Z,26,0I IFGTHENG0SUB84 
30 

9060 A1=SCRN(X,Y):A4«SCRN(X+1,Y+1 
) 

9070 A2=SCRN < X + 1 , Y ) : A3=SCRN < X , Y+ 1 
) 

9080 I=I+l:PL0T17+Z,25,STR*(4-I) 

9090 PLOTX, Y, "WX" :PL0TX,Y+1, "YZ" 

9100 PL0T25,0,25:WAIT10:PL0T25,0, 
27 

9110 IFESTHENEXPL0DESUAIT30ELBEWA 
IT25 

9 1 20 I FJTHENJ=0 : G0SUB8580 : G0T09 1 5 


9130 PLOTX, Y,Al:PLOTX+l, Y+l, A4 

9140 PL0TX+1,Y,A2SPL0TX,Y+1,A3 

9150 IFESTHENG0SUBBB40 

9160 IFWTHENU=0:L=301 :PL0T6+Z,24, 
8:PL0TB+Z,25," 

91 70 F0RN=OT02 -" NM-4*N+D ( N ) 

91 BO PLOTX <ZE,NM),Y(ZB,NM), "«" !NE 
XT _^^ i»^»»» 

9190 IFK4THEN5930 

9200 : 

9220 REM «======( GAME OVER )==== 

9230 REM ===-=•=»===========-==-= 

9240 ! 

9250 PL0T14+Z.3, CHRt ( 14)+CHRt(l )+ 

"SAME 0VER"+CHR*<7)+CHR*(B> 

9260 PL0T14+Z,4,CHR*( 14)+CHR*(3)+ 

"GAME 0VER"+CHR$(7)+CHR*CB) 

9270 : 

92B0 REM > Musique du perdant 

929D : 

9300 IFV0=0THENWAIT300: PLAYO, 0,0, 
O:G0T05460 

9310 PINGSWAIT20 

9320 G0BUE9370 : REPEAT : PLAY 1 , D , , 

9330 READO, N, P: MUSI CI, 0,N,VO: WAIT 
P 

9340 PLAYO, 0, 0, 0! IFP=1D0THENWAIT2 


9350 UNTILP-101 :S0UND1,D, 1 : S0UND2 
,0, 1 

9360 GOT05460 

9370 DOKEttBO , 2+DEEK ( #E9 ) : RETU RN 

93B0 DATA 3,3,40,3,8,60,3,8,20,3, 
8,40 

9390 DATA 3,12,40,3,10,60,3,8,20, 
3,10 

9400 DATA 40,3,12,40,3,8,60,3,8,2 
0,3 

9410 DATA 12,40,4,3,40,4,5,100,4, 
5,40 

9420 DATA 4,3,60,3,12,20,3,12,40, 
3,8 

9430 DAT^ 40,3,10,60,3,8,20,3,10, 
40,3 

9440 DATA 12,40,3,8,60,3,5,20,3,5 
,40 

9450 DATA 3,3,40,3,8,101 

9460 : 

9470 REM ====«===.=■-«========="-== 

9480 REM ==( ATTERRISBAGE REUSBI 
9490 REM ============—=«======= 



9500 : 

95 10 G0SUE8600 : ZW=0 : IFESTHENGOSUE 
8850 

9520 G0BUB8530 : B-6 : G0BUEB330 : V-Y+ 
3 

9530 PLOT 15+Z , 26 , : IFTTHEMG0SUE84 
30 

9540 PL0T5+Z , 25 , 32 : PL0T1 +Z , 25 , 32 : 
T=0 

9550 PL0T8+Z , 25 , 2 : PL0T32+Z , 25 , " 



A SUIVRE... 



POKER 



COMMODORE 64~ 



Ben... c'est d'un jeu de poker qu'K s'agit... 

Jean-Charles GRIEBEL 



Mode d'empioi : 

Tapez et sauvegardez le premier listing, puis faites : 
POKE 44,64 : POKE 43,1 : POKE256*64,0 : NEW 
Tapez et sauvegardez a sa suite le second listing sous le nom de "POKER 
N2". Le lancement du premier programme qui contient les regies succina- 
tes, charge et lance automatiquement le programme principal. 



LISTING 1 




\JBtlOW, 



10 REM *********************** 

20 REM *********************** 
30 REM * PDKER :32 CARTES * 
40 REM ** CBM S4 ** 
se REM *********************** 
60 REM ** FRIT EN 84^B5 ** 
70 REM *********************** 
80 REM *********************** 
90 I FPO« 1 THENP0KE64*256 , 1 P0KE44 , 6 
4 : PQKE43 , 1 : P0KE45 , 1 : P0KE46 , 1 40 : RUN 
1 00 P0KE3328 1,0: POKE53280 , : S»5427 
Z:PRINTCHR*<14)"TJ : 
110 FORI"8TOS+24:POKEI,0:NEXT 
120 P0KES+5,34:P0KES+6,89 
130 Rl*«"» 

140 QOSUB1880 

150 P0KE36334 , PEEK ( 36334 )RND234 1 PD 

KE1,PEEKC1)HND251 

160 FORI=0TO1024:POKEI + 122B8.PEEK< 

1+33248): NEXT 

1 70 FOR I "0TO7 : POKE 1 4Z43+ 1 , PEEK < 333 

92+1 ) :POKE14240+I , PEEKC334Z4+I ) 

1 80 POKE 1 4236+ 1 , PEEK C 33280+ 1 ) I NEXT 

190 PDKE1 , PEEKC 1 )0R4 I P0KE56334, PEE 

K (36334) OR 1 

200 F0RX«13312T014239:REHDH:P0KEX, 

H : NEXT 

210 F0RX«1T093:REHDR:P0KEX+49131,R 

:NEXT 

220 PRINTCHR*C14)":T; :OOSUB2000: FO 

RTT«0TO300 : NEXT 

230 P0KE33Z72, <PEEKC53272)RND240)O 

R12 

240 PRINT'Tr; :F0RX-1T024:PRINT"T'R 

1*; :NEXT 

230 OO8UB620 I P0KE53282 / 2 1 P0KE33283 

, 1 : P0KE33284 ,12: P0KE3323 1 > 1 1 P0KE53 

280,0 

260 print "wnmmairHi*; 

270 PRINT"B1 i 1 i 1 I 



280 PRINT" IS B Miflfl ■ 91 I rial ■ S-/U 

m mmnam a/sm amnm mini 

i0ii"i 

290 PRINT" It ■BD" ♦ I IIW SKV" *■ I I 

« S12B (III* »ll I I"; 

300 PRINT" I JMJEFS I I SKcAfiim I I 

■3456B I I I IMh S SHI'S 

310 PRINT" I SKJHIJB I I lUTt-i m I I 

■789:b ii amomm i in as hi ii" 

320 PRINT" I HKLMNB I I Smr/.&m I I 

■;<">■ ii bwmm imasHH i" 

330 PRINT" I JBOPQB II D'iiia II 
I7-*IB I I I inah H HBil"; 

340 print" in aiRsi s'biibu a+, 
B «jbi I inb a— m a\mi majp sum 

1 in 

330 print"iii»to situb gnanara-B a 
-.■ nil I JH btj aM\ imw ai 
■ i inn i"; 

360 PRINT"B II Mil 1 >.l 



370 PRINT"* 

380 POKE 1 477 , 1 62 : QOSUB700 

390 print" Mppuimiuimmimi 
in inii ii ii mhii" ; 

400 PRINT"IHHI IHI II ■»»' II IHI III 



IHI 



410 PRINT"IHNI IHI II IHI II 111 IHI 



420 PR I NT "WWII lil IHI II II l»MI 

■Nl imnr ; 
430 PRiNT"i»m nnii mi n n imi 
iuhi ii iimin"; 

440 PRINT "IMBM IBM IHI II IHI 111 

INIII III IHUII"; 
430 PRINT 'llllll lllim »l IH1I II 
II IHI >»•»»! 

460 PRINT"i«BWIllWimi"THB(7)"BFITTEND 

EZ BUELQUES SECONBESB" 

470 5=34272 ! F0RI=ST0S+24 I POKEI , i N 

EXT : X=0 

480 POKES+5 , 90 : POKES+6 , 94 I P0KES+Z4 

,13 

490 F0RR=lT03:P0KE53277,2TO:-l)+2r 

X : P0KE5327 1 , 2 T< X- 1 ) +2 TX 

500 REHBH,B,D:IFH<0GOTO530 

310 POKES+1 , H : POKES+2, B : POKES+4, 33 

320 FOR I ■ 1 TOD I NEXT : POKES+4 , 32 : FOR I 

-1TO90:NE"T 

330 X-X+i:iFX-6THENX"0 

340 NEXT 

530 P0KE33269 , 1 92 i P0KE33277 , : POKE 

33271,0 

360 PO"l: LORD "POKER N2",8,l 

370 REM********************* 

580 REM********************* 

590 REM* CRERTION SPRITES »* 

600 REM********************* 

610 REM********************* 

620 FORX«0TO63 I RERBH I P0KE896+X, H I N 

EXT 

630 SP-33248 1 POKESP+2 1 , 255 1 POKESP+ 

28, 233 : POKESP+37, 7 :P0KESP+33, 12 

640 POKE2040, 14 :POKEZ041 , 14 : POKE20 



42, 14:POKE2043, 14:POKE2044, 14 

630 POKE2043 ,14: POKE2046 , 1 82 P0KE2 

047,180:POKESP+16,32 

660 FORX=0TO 1 1 : REHDR : POKESP+X , R : NE 

XT 

670 FORX-0TO7 : RERDfl ! POKESP+X+39 , R i 

NEXT 

680 FORX"0TO 1 9 1 I REHDA I POKE 1 1 520+X , 

fl : NEXT 

690 RETURN 

700 P0KESP+Z7 , 1 92 : POKESP+43 , 1 4 i POK 

ESP+46,6:P0KESP+12,44 

710 POKESP+13,136:POKESP+14,108:PO 

KESP+15, 136: RETURN 

720 REM******************** 

730 REM******************** 

740 REM* DHTRS CRRRCTERES * 

750 REM******************** 

760 REM******************** 

770 DRTH0,0,4, 15,31,63, 127,254,0,0 

,8,252,254,254,232,132 

780 DRTR120,33,34,68,136,20,228,67 

,132,20,30,1,1,38,28,4 

790 DRTR0, 1,31,20,98,65, 128, 128, 16 

0,16,136,68,34,17,136,68 

B00 DRTR200,48,32,4B,76, 130, 13,49, 

192,96, 130, 137, 128,64,65,33 

810 DRTR34, 23, 7, 0,253, 255, 0,0, 65,6 

7, 132, 104,240,224,64, 128 

820 DRTR192, 48, 8, 16,32,48,72,63,34 

, 18, 12,4,8, 16, 12,3 

830 BHTR1,2,7, 15,22,33,66, 130,0,0, 

253,255,0,224,152,63 

840 BRTH132, 130, 2, 1,143, 103,6,3, 14 

0,176,63,50,12-4,12,19 

330 DRTH34, 17, 136,68,34, 17,8, 3, 1, 1 

,130,70,40,248,128,0 

860 DRTR32,36, 100, 128, 128,76,40,33 

, 194,39,40, 17,34,68, 132,30 

870 BRTR33,63, 127, 127,63, 16,0,0, 12 

7,254,232,243,240,32,0,0 

880 DRTH0,64,223,67, 103, 127, 127, 12 

7,0, 1, 131, 193,231,253,243, 192 

890 BHTR126, 114, 68, 74, 82, 148,164,2 

00, 11, 25, 1,3, 110, 38, 2, 102 

900 DRTR0,0,0,3,7,9, 16, 16, 176,32,2 

40,248,244,242,249, 116 

910 BRTfl23,7,13,31,46,78,156,44,0, 

0,128,224,16,40,68,136 

920 BRTR32,33,65,66,98,84,72,136,1 

14,49,60,51,48,43,48,48 

930 BHTR235 , 255 , 253, 255 , 233 , 255 , 25 

3,233,77,142,60,204,23,44,76,140 

940 DHTR12,10,18,17,37,43,43,37,16 

4, 180, 180, 164, 136,72,80,32 

950 DRTR49,30,52,36,31,60,113,17B, 

12,12,12,12,204,60,140,78 

960 DRTH17, 18,42,70,66, 130, 132,4,4 

9,34,20,8,7,1,0,0 

970 BHTH32, 37, 1 14, 244, 243, 240,224, 

132,46,139,79,47,31,13,4,13 

980 DHTH8,8, 144,224, 192,0,0,0, 102, 

64,92, 113, 192, 128, 152,208 

990 DRTR19,37,41,74,82,34,78, 126,6 

7,95,255,231, 195, 193, 128,0 

1000 BRTR254,254,254,230, 194, 133,2 

,0 

1010 DRTH14, 15,27,36,90,65,209, 152 

,56, 153,243, 127, 159,81 ,41, 169 

1020 DRTR128,128,192,64,6B,56,3,24 

, 145,81, 162, 162,65,65, 130, 130 

1030 DRTR0, 12, 19,33,35,70,63,78,96 

,143,206,32,31,0,0,0 

1040 DHTR129, 193,66, 163,28,4,8,8,0 

,0,0, 128, 192, 96, 4B, 24 

1050 DRTH143, 144, 160, 160, 160,65,65 

,66,0,128,233,235,235,16,16,32 

1060 DRTH16, 16,232,236, 195,66, 130, 

132, 12,26,50,209, 17,33,33,65 

1070 BATR130,132, 132,136,139,76,88 

,48,33,65,66,193,53,23,8,8 

1080 BRTFI4,8,8,255,235,255, 1,0,66, 

130,130,5,5,5,9,137 

1090 BRTR24,12,6,3,1,0,0,0,16,16,3 

2,56,197,66,131,129 

1100 DRTR0,0,0,248,4, 115, 137,6, 114 

,34,98,196,132,200,48,0 

1110 DRTH63,63,130, 130,69,69,133, 1 

37,24,16,28,34,2,3,1,1 

1120 DRTR149, 148, 138,249,254,207, 1 

33,28,23,139, 130,90,36,216,240, 112 

1130 DRTH0, 60, 66, 70, 90, 98, 66, 60,0, 

252,16,16,16,20,24,16 

1140 DRTR0,24,24,24,24,4S, 102, 126, 

0,60, 102,96, 124, 102, 102,60 

1130 DATA0, 62, 28, 127, 127, 62, 28, 8,0 

,8,28,62,127,127-127,54 

1160 DATH0,60,24,24, 102, 102,24,24, 

0,30,36,68-68,68,36,30 

1170 DRTH0,66,34, 18,63,66,66,63,0, 

24,24,36,36,66,66,66 

1180 DRTH0- 0,128, 192- 224, 240, 248- 2 

52-0,0,1-3,7-15,31-63 

1190 DHTR254-254,224,192-192,240,2 

48,0,127,127,7,3,3,13,31,0 

1200 BRTR0,0,28,62, 127, 127,255,255 

,0,0,56, 124,254,254,255,255 

1210 BRTR127,127-31-15,7-3-l,0,254 

,254-243,240-224- 192, 128,0 



1220 DflTfll,3,7,7,3, 1,25,61, 128, 192 

,224,224,192,128,152,188 

1230 DHTR126,61,25, 1,3,7,7,0, 126, 1 

83,152,128,192,224,224,0 

1240 BRTR0, 1,3-7, 15,31,63, 127, 128, 

1 92 , 224 , 240 , 248 , 252 , 254 , 255 

1250 DRTH63, 31 , 13, 7, 3, 1 , 0, 0, 234, 25 

2,248,240,224,192,128,0 

1260 DRTR0, 1,3, 7, 7, 1,3, 0,128, 192, 2 

24,240,240,192,224-0 

1270 BRTR3, 1-7-7-3,1,0,0,224,192,2 

40,240,224,192, 128,0 

1280 BRTR3, 7, 7, 7, 3, 1,0, 0,96, 240, 24 

0,240,224,192,128,0 

1290 BHTH0, 1,3, 7, 7, 7, 3, 0,128, 192, 2 

24,240,240,240,96,0 

1300 BRTfll, 1,6, 6, 1,1,3,0,128,128,9 

6,96,128,128,192,0 

1310 DHTA0,3- 1- 1-6-6, 1,1,0, 192, 128 

,128,96,96,128,128 

1320 DRTR0, 0, 1 , 3, 7, 3, 1 , 0,0, 128, 192 

,224,240,224,192, 128 

1330 BRTR0, 126,2, 12,43,64,66,60,0, 

60,66,64,112,64,66,60 

1340 BRTR0,32,32, 126,36,40,48,32,0 

,28,34,64,32,30,2,126 

1350 BATH0,60,66,66,62,2,4,56 

1360 DRTR120, 169, 127, 141 , 13,220, 16 

9,1,141,26,208,169,1,133,251,169.2 

7,141 

1370 REM****************** 

1330 REM* BHTRS SPRITES * 

1390 REM****************** 

1400 DRTR20.3, 169, 192, 141,21,3,88, 

96,173,25,208,141,23-208-41, 1,240 

1410 DRTH41, 198,251, 16,4, 169,1, 133 

, 231 , 166, 251 , 189, 86, 192- 141 , 33, 208 

,189 

1420 DHTR90, 192, 141, 17,208, 189,88, 

192, 141,32,203, 139,84, 192, 141, 18,2 

08 

1430 DRTR173- 13,220,41, 1-240-3-76, 

183,234,76,49,234,10,156,1,6,0,6,2 

7,91,0 

1440 BRTR0-0, 0,48, 0-12-63-0,55-215 

, 192,55,213, 192,215,245, 115,37 

1450 BRTA53,93-92,13,93,112,2,170, 

123 

1460 BHTA42, 170, 128, 129,85,64,5,85 

,80 

1470 DRTR20,90,84,81, 101, 149,81, 10 

2,35 

1480 BRTR81, 89, 35, 81, 102,85,31, 150 

,85 

1490 BRTR20, 105,34,3,85,80, 1,35,64 

,0 

1500 DRTH50, 193, 100, 195, 150, 193,20 

0,195,250,195,45,195 

1510 BRTR9, 11,4,5,2, 12,3,0 

1520 BRTR0,0,2,3,65,2,B,65,10 

1530 BRTR8,85, 10,8,20,42,40,195,42 

1540 DATR40,255,42,40,255,40, 168-2 

55-40 

1550 BATR168,255,40,40,255,40,40,2 

35, 42 

1560 DRTR40, 255, 42, 40, 255-40, 168,2 

33,40 

1370 DATA168, 195-40- 168-20,32, 168, 

85,32 

1 580 DfiTfl 1 60 , 63 , 32 - 1 60 . 65 ,32,1 2:3 , 

,0,0 

1590 BRTR20, 1,0,20,5,0,5,85,0 

1600 BRTR5,85,0,0,2,8-0-2,3 

1610 IIHTR0--2, 143, 15, 170, 183, 15, 170 

,188 

1620 DHTR62, 170, 183,62, 170, 188,62, 

170,240 

1630 DRTR62, 170,240,242, 128,0, 192, 

123,0 

1640 DRTR0, 128,0,0-85,80,0,35,80 

1650 DRTR0, 80, 20, 0,64, 20, 0,0, 0,0 

1 660 DRTR0 , , 48 , , , 240 , 64 , 3 , 240 



1670 DflTR80,3,200,85,79,234,5,87,l 

70 

1680 BRTR0..0, 168,0,2, 168, 10,170,16 

8 

1690 DRTR10, 170, 168,42, 170, 160,42, 

170,160 

1700 DRTR42, 128,0,42,0,0, 170,213,8 



1710 DRTfll 71, 24 1,83, 33, 192, 5, 15, 19 

2,1 

1723 DRTR15, 0,0, 12,0,0,0,0,0,0 

1730 REM*************** 

1740 REM* DRTHS MUSIC * 

1750 REM*************** 

1760 DRTR33, 135, 128,33, 135, 128,33, 

135, 128,37, 162, 128,42,62,250,37,62 

1770 DATA250, 33, 135, 128, 42, 62, 128, 

37, 162, 128,37, 162, 128,33. 135,255,- 

1 

1730 REM***************** 

,1790 REM* PRESENTATION. * 

1800 REM* * 

1810 REM***************** 

1 820 PR I NT " 3" ; : FORT= 1 TO 1 : PR I NT " 8" 

RlS"H"fllS; HEXT:PRINT"li"Rl*; : RETUR 

N 

1830 FORET=lTOLENt.E*:> 

1840 PRINTMID*(E*,ET, 1); 

1850 GOSUB1860: NEXT: GOTO 1870 

1 860 POKES+24 , 1 5 : POKES , 88 ■ POKES* 1 i 

115: POKES+4, 17 

1 870 FORTT= 1 TO50 : NEXT : POKES+4 , I RE 

TURN 

1880 PRINT"»!SG"DTJ*;Rl*"n"Rl*'VfllJ: 



1890 E*="ll 

1900 E*="S1 

ENTER 

1910 E*="JI 

NBES! 

1920 E*="II 

********** 



********* \r/Tt— 

":GOSUB1990 

XEUILLEZ PRTI 

":GOSUB1990 

•UELGUES SECO 

":GOSUB1990 

********** V_-., . 

":GOSUB1990 
1930 PRINT"n"Rl*"l"Rl*JAl*"f»"Rl»"k. 

1940E*="II LE PROGRAMME R ETE 

ECRIT T»_ I " :GOSUB1990 

1950 E*="» ** 'EAH -tHARLES I 

RIEFEL ** ":GOSUB1990 

1960 PRINT"n"Rl*"I"AI*"H"; :VA*160: 

VB=0 

1970 REMT=0TO40:POKE1824+T+54272,V 

B : POKE 1 024+T , VR 1 NEXT 1 VR=32 : VB=6 : RE 

TURN 

1 980 VR=32 : VB="6 : RETURN 

1990 OOSUB1830:PRINT"k."fllt; RETURN 

2000 GOSUB1820:GOSUB1970:PRINT"!M3 

"Hi*; 

2010 e*="h ********** «», - — r j 

-_#********#, ":QOSUB2100 

2020 E*="ii L'ORDINRTEUR BISTRIBU 

E LES CARTES. ":GOSUB2100 

2030 Et="ll C SANS TRICHER. -' 

EST '*." ) ":GOSUB2100 

2040 E*="ll XOUS NE POUVEZ PRS CHR 

NOER PLUS BE : ":GOSUE2100 

2050 E*="ll 4 CARTES. C«TTENTION P 

EPE ~l\ EST LA) ":GOSUB2100 

2060 E*="li XOU3 JOUEZ CONTRE L 

'ORDINRTEUR. ":GOSIJB2100 

2070 Et="li TSITT! ^L SAIT BLUFFE 

R IIHIHI ...... ":GOSUE2100 

2080 E*="ll ,•€ MISEZ PAS EXRGEREM 

ENT SINON ... " :GOSUB2100 

2090 E*="SI ********** BONNE CHRN 

2100 GOSUB1830:PRINT"!S"A1*; : RETURN 



Suit* p*ge 31 
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RISK 



^M^t THOMSON T07,T07 70 



Seul face a I'adversaire a la suite d'une epouvantable guerre 
spatiale, la destruction systematique des spheres energeti- 
ques de I'ennemi demeure votre seul espoir de victoire... 

Quan & Hoang LE LUU MINH 

Mode d'emploi : 

Tapez et sauvegardez a la suite ces trois programmes ("RISK1 ", "RISK2", 
"RISK3" et "RISK4"). Sachez que RISK1 et RISK2 sont facultatifs, que 
les regies sont presentes dans RISK3 et que le programme principal RISK4 
occupe environ 29 Ko Ce jeu utilise le joystick. Si au cours du jeu un desin- 
tegrateur vous bloque le passage, appuyez sur la barre d'espacement. 



t»j ci'Mrri'EPE- 




LISTING 1 



15, 135,9, 141 



10 CLSlSCRE£N3,0,4:PLAY"O£A4T£DObMIfoO4FA 
bS0b":CLEAR,,4 

£0 C'EFGR*(0>=6,8,8, 128, 128, 192.224, 243 
30 DEFGR*' 1>=8,0.8, 1,1,3,7,31 
40 DEFGR* '£>=31, 7,3, 1, 1,0,0,0 
50 DEFGP*<3 '=248,224, 192, 123, 128,0,0,0 
&Z COLOR4:LQCATE0,0:PRINTGR*(3); SL0CATE3 
«, 0!PPIWTGR*<2>; :LOCATE0,23:PRINTGR*(O ■ : 
:L0CATE39.£3:PRINTGR*(i:'f iBOXF'O- 19£)-(3 
19, 199):COLOR3:LOCATE0,6 
70 PRINT" ****** ** ****** ** 
ft* ****** ** ****** ** * 

* ** ft* ** *** ft*** 

****** *« ****** *** 
****** ft* *** **** 
** ** *ft ****** ** * 



ft* ** ft* 



90 LOCATES, 15:CQL0R7:PRINT" Pattentez S, 
V.P. Le programme se charge"; 
100 BaUWRISKfi" 



LISTING 2 



CARTE "RISKS" 



10 CL'SH 

15 LIME 
20 REhD 

line-(a 

30 DATA 
54, 183,5 
3,42.177 
171,43, 1 
3,195.39 
,45,198, 
19,42.22 
40 DATA 



CREEN0,0,0iFRINTCHR$C£0> 

159.68>-(16£,66) 

ft.Sllf A=1888 THEN GOTO 100 ELSE 
8>:GOTO20 

163,54. 1171.54, 174.51, 174,54, 139. 
, 136, 5 fj 189.48. 189,45. 186,45, 13 
48.177,51, 174,45, 171,48, 168,45, 
4,42, 177,39, 180.39, 133,36,189,3 
195,42, 192,42, 189,39, 189,42, 192 
5, £01, 42, 204. 42. £13. 39, 2 16, 39, 2 
,39 

£2, 36, £25. 33. £23. 36-225.39. 225. 
, £22. 45, 228, 42. £31. 42. £34, 45, 23 
76. ££8. 33. 231, 33. £34. 36. 237,33, 
. 39.240, 33. 237 . 36. £46. 30, 243. 3 
£4 3,30, £43, £7, £4 9. £7. 252, £4, £64 
1,267, 18,270, 18,273.21.276, 18,2 
,24 

70. £7, £67, 30,£70,30. £73, £7, £76, 
.££5. 30. £91, £7, 297. 27. 294. 30, 30 
33, 309, 33. 306, 30. 3 12, 27, 3 18, £7, 
0.33,315,30.315,30.315.33.312,3 
31 5. 39, 3 15. 42. 3 12. 42.306. 49, 306 
S . 330, 51, 300, 54 . 297, 60, £94, 54, £ 

03.i"4£,£97,45,297,4£,291,48,£91, 
.294, 75, £94, 73. 283. SI. £35, 8 1, 28 
£-.£85. 87. £88. 96.285. 96. £79,99, 
7. ?0. 270, 98, £73.102. £79, 105,£8£ 
1 05 . £70, 1 0£. £70, 93 . £67, 90, £67, 9 
£64, 37. 26 1.84, £55, 90.249- 102,24 



DATA £43, 108, 240, 105. 237, 93, 237, 87, £3 
87, £3 1 - 34, 225, 84, 222, 87, 216, 87, £13, 84, 
7, 84.210.37,213,87,216,90,213, 96,210.9 
6.204. 99. 19£. SI, 192,84, 189,84,201, 102,21 
0.99. £13. 99. £07, 108, £04, 114, 195,120,195, 
123, 198, 1£9, 198, 135,195, 138, 192,144, 195, 
144,189,159 

DATA 186, 162, 177,162, 174, 159,174, 156, 
171. 153, 168, 141, 168, 132, 165, 126,168,123. 
163. I £0. 165.120, 162,123, 156, 1£0, 150, 1£0, 
141, 111, 138. 105, 138, 102, 141,93, 150,84, 15 
" 31, 165.31, 168,34,171,84, 177, 81 . 189, 81, 
195,72.139.75, 186,75, J 86, 72, 189.69, 198,6 
9 1 93 66 139 66 

90 DATA 183.72,177,75,174,63,171,63,171, 
66, 174,75. 171,75,168,66,165,66,162,69, 16 
2. 7£. 156.78. 153,78, 150,75,158,72.153,69, 
159,69, 16£,66, 162,63,159,60,1000,0 

6 LINE>'9,9>-(13,6) 
110 READ A.E:IF A=1000 THEN GOTO 168 ELS 
E LINE-<A,B;:GOTO110 

1£@ DATA £1.6,42,12,48,9,57,9.60,12,63,1 
£.66.9,69,9.69,6,72,6,78, 12,75, 15,72,15, 
66, £7, 66, 33. 69, 36, 69, 39, 75, 42, 72, 45, 75, 4 
8, 75. 5 1.73, 5 1.84, 42, 84, 39, 8 1,38, 8 1,27,84 
,£4, 87, £4, 93,27. 93, 38, 98, 36, 96, 33. 96, 38, 
99,36.99.42. 105.39, 105, 42, 98,' 51 . 87, 57, 90 
,54.90,57 

136 DATA 37,66,81,72,78,78,72,84,72,87,7 
5, 93. 75. 96. 72,96,69, 93. 69, 98, 63, 87, 68, 87 
,54.98,51.96.51,99,54,99,57.96.68,99,57, 
105.68, 168.60. 111/57, 111,60,114,60,128,6 
8, 117,69, 117,69, 1 £0,72, 11 7, 75. 117,81,120 
,87, 1 £8.90, 123,87. 126,90, 126,93, 123, 105, 
126, 108,129 

148 DATA 108. 132, 10£, 138,99, 144,96, 147,9 
6, 150,93, 159.37. 162,90. 162,98, 165,87, 168 
.87, 171,34, 177,84, 188,78, 195,75, 195,72, I 
92,72. 186.69, 174,69,165,66, 150,63, 147,57 
, 144,51, 133.51, 132,54, 126,57,123,58,117, 
54, 108.54, 105,48,99,42.96,39,78,36,75,39 
,93.36,90,36,34 

150 DATA 33,75,33,72,36,69,33.63,33,60,3 
6. 51, 36. 45, 39. 42, 36, 39,33. 36, 30. 27,21, £4 
8, £4, 9, 33, 3, 33, 9, 30, 15,24, 12,24,9,21, 1 
5, 18/12, IS, 9, 12,9,9, 1000,0 
160 LINEt"78,3>-<81,3> 

170 READ A,B:IF A=1000 THEN GOTO 190 ELS 
E LINE-(A,B):GOTO170 

DrtTA 34,6,81,9,87,12,93,18,96,15,99, 
15,99, 18, 93, £4, 90, 2 1,84, 2 1,37, 13, 78, 9, 78 
,3,1000,0 

190 LINEC78, 18)-(81,£1) 

£00 READ A,E:IF A=I000 THEN GOTO £20 ELS 
E LINE-(A,B):GOTO200 

210 DATA 75,21,72,24,72,21,75,18,78,18,1 
008,0 

2£0 LINE'93,3>-(87,9) 

230 READ A,B:lF A=1000 THEN GOTO £50 ELS 
E LINE-(A,B>!GOTO£30 

240 DATA 90,12,96,9,99.9.108.18,168,21.1 
05,27, 105,30, 111,36, 114.36. 120.30, 123,30 



, 129,27, 129,24, 132, 18 

,1080,0 

250 LINE'.188,4£>-(108,45> 

255 LINE- a 11,45) :LINE-< 108, 48): LINE-* 18 

5,48 I :LINE-(105,45)!LINE-<168,4£> 

£60 LINE(13£,27)-C135,27> 

£65 LINE-a38,£4):LINE-a41,£4):LINE-U4 

4,£7)lLINE-U41,30)!LINE-(138,30):LINE-( 

132,27) 

£70 LINE(66, 10£)-(69,99> 

£75 LINE-(7£,99)«LINE-(81,10£>:LINE-C81, 

105):LINE-(75, 102 ) : LINE-<66, 10£> 

280 LINE(84,182)-<87, 182) 

£35 LINE-(98, 105) : LINE-(98, 108) : LINE-(S4 

, 185):LINE-(84,10£) 

290 LINEC81, 195>-(84,198) 

295 LINE- < 87, 1 98) i LINE-(34, £00) : L INE- (8 1 

, 198>:LINE-(78. 198 > i LINE-< 81 . 1 95 ) 

300 LINE(147,51)-(150,51> 

305 LINE-. I50,54>:HNE-(147,57>:LINE-<14 

7,51) 

318 LINE(153,45)-<156,45) 

315 LINE-( 159, 48) :LINE-( 156,48) :LINE-< 15 

9.54):LINE-(159,57):LINE-(156,57;:LINE-( 

153,54):LINE-(153,45) 

320 LINE(219, 18)-(£££, 18) 

325 LINE-C2££,21):LINE-(219, £1>:LINE-(21 

3,2?):LINE-(£07,£7):LINE-(207,21):LINE-< 

213,21):LINE-<219,18) 

330 LINE(287,30>-(£10,30> 

335 LINE-(210,33):LINE-(£13,36)iLINE-(£l 

0,36>:LINE-(£07,33):LINE-(£87,30> 

340 LINE(£5£,9)-<£55,9) 

345 LINE-(252,l£):LINE-(£49, t£):LINE-(25 

£, 9> 

356 LINE(255,1£)-<£61,1£) 

355 LINE-' 258, 1 5 > : LINE-'! 255, 15) : LINE-<25 

5, 12) 

366 LINE(£6I. 15)-<£64,15) 

365 LINE-(261,1S>!LINE-(261, 15) 

376 LINE<£5£, I85>-(£49, 168) 

375 LINE- (£49, 1 1 1 ) .: LINE-<£52, 1 1 1 > : LINE-C 

£52,185) 

380 LINE(£97,7£>-(308,72) 

335 LINE-(303,78):LINE-(303,81>:LINE-<£9 

7,84):LINE-(£94,8I):LINE-(297,81):LINE-( 

300,73):LINE-<£97,7£) 

398 LINE(£94,99)-<300,102) 

395 LINE- (297, 10£) : LINE-C297, 105) : LINE-( 

291, 108):LINE-(294, 1 1 1 ) : LINE- (£33, 111):L 

INE- (£85, 108):LINE-(894,99) 

400 LINEC303, 185)-<306, 1 05) 

405 LINE- (306, 108) : LINE-(3B9, 105>:LINE-( 

315. 11 INLINE- (306, 1 1 1 ) : LINE-(303, 108):L 

INE- ' 300, 188>:LINE-(380, 105) 

410 LINEO06. U4)-(309, 117) 

4£0 READ A, 8: IF A=1000 THEN GOTO 440 ELS 

E LINE-(A,B>:GOTQ420 

430 DATA 309,120,315, 126, 315, 132,309, 141 

,306,141,308,135,297, 135, £94, 138, £88, 138 

,£88, 135,285, l£9, £88, 126,294, 123,300, 117 

,303,117,300, 120,303.120,306, 117,306, 114 

,1000,0 

440 LINE(31£, 1 41 )-(312, 144 ) 

445 LINE-(315, 14?) : LINE- ( 31£. 147) : LINE- < 

309,l44):LINE-(31£,I41> 

450 LINE(210,123)-(218,1£9) 

455 LINE- (207. 135 ) : LINE- (£07, 138)!LINE-( 

204,138):LINE-(201,135)iLINE-(201, 132) I L 

INE-(207,126>:LINE-<210, 123) 

468 L'INE(291,114>-(£91,117) 

465 LINE-'£S3, 1£0 ) : LINE- (£8£, l£0):LINE-( 

235, 117):LINE-(£S3, 1 17) : L INE-(£91 , 1 14) 

470 SCREEN4,0,0 

480 ' 

490 ' ! ! 
580 ' ! Si vous uoulez copier la carte ! 
510 'I sur 1 ' imprimante thermite I 
5£0 '! tapez:CNT'C puis SCREENPRINT ! 
530 ' I I 
540 , 

550 RUN"RISK3" 



ivent 



LISTING 3 



--= Chargemen 



du programme =-- 



-= RISK =- 



16 CLEAR, ,12 

£0 DEFGR*(8)=0, 0,0, 128, 1£8,19£, ££4,248 

£5 DEFGR*! 4) =255, 170,255, 161.236,161.255 

,170 

26 C<EFGRS(S)=255, 171,£53-16£-£33, 173,£3? 

,236 

30 DEFGR*(1 j=8, 8,0, 1, 1,3,7,31 

35 DEFGR*(5)=8, 1 £8, 64, 168, £38, 174,64,14£ 

36 DEFGR*(9> = 10. 14, 138 . £06, 74, £86, 106,23 
3 

40 DEFGR*(£>=31,7,3, 1,1,0,0,0 

45 DEFGR*(6>=0,0, 0,0, 0,0, 0,124 

46 DEFGR*(10)=170,£54,160, 124, 10,254.170 
, 124 

50 DEFGR*(3)=£48,224, 192, 128, 128,0,0,0 

55 DEFGR*(7)=££4, 160,224. 1 60, £24, 1 60, 227 
,165 

56 DEFGR*(11)=234. 180,216,172,213. 165,22- 
9, ££7 

57 L0CATE17, 10, 0: COLORS: PRINTGR*(4 >; GR*< 
5>;GR*(6>;GR*(7):L0CATE17, 11,8:PPINTGR*( 
8>;GR*(9);GP*(10);GR*( 1 1 ) : L0CATE34, 23,0: 
COLOR0,3:PRINT"ENTREE"; : A*= INPUT*( 1 > 

60 CLS:SCREEN3,0,4«COLOR4!LOCATE0,0:PPIN 
TGR*C3>; :LOCATE39,0tPRINTGR*(£); :L0CATE8 
,£3:PRINTGR*(0)j : L0CATE39. 23: PR I NTGR*( 1 ) 
;:BOXF(0, 192>-(319, 199) i C0L0R4 : LOCATE0, 6 
70 ATTRB 8,1: LOCATE 17, 1 : COLOR 1 : PRINT" P I 
SK":LINE(137, 16)-U66, 16), 2 
88 ATTRB8,0:LOCATE0,3:COLOR7:PRINT"LMe t 
errjble guerre spatiale a eclate. La ba 
taille n'a rnal heureusement pas tourn 
e a MOtre avantage et nombre de voscompa 
triotes se sont vu captures par wos e 
nneinis.Ils sont retenus prisonniers"! 
90 PRINT"dans les bases spatiales de l'a 
duersaire 

VOUS DEtlEUREZ LE SEUL COMBA 
TTANT DE VOTRE GROUPE 



RES ENERGETIQUES ctuj Ee 

ur la planete de celui-ci." 

110 LOCATE 25,20,0:COLOR8,3iPRINT"ENTREE 

":AS=INPUT*(D 

120 CLS:SCREEN,0,4 

140 COLOR4:LOCATE0,0:PRINTCR*<3>;:LOCATE 

39,0JPRINTGR*(2); : LOCATES, £3: PRINTGR*( 8) 

; sL0CATE39,£3:PRINTGR*(I>; : BOXF(0, 1 92)-( 

319, 199):COLOR4:LOCATE0,6 

158 ATTRB 8,i:L0CATE 17, I : C0L0R1 : PRINT"R 

ISK"!LINE(137,16>-(166, 16),£ 

160 ATTRB0,0: LOCATES, 3: C0L0R7: PRIN" "Mais 

cela risque de ne pas etre de tout repo 
s.En effet.vos ennemis ont seme un gran 
d nombre de DESINTEGRATEURS. Vous dewr 
ez les euiter. En p 

lus des desintegrateurs, wos ennemis "J 
170 PRINT"ont aussi lache toute une arma 
da de SPIRALES DE FEU ciui uous pours 
uiwent pour vows tuer.Vous deurez les 

faire percuter sur quelque chose pou 
r uous en debarrasser. Mef iez-vous egale 
ment des contacts qui vous seraient mor 
tels. "; 

188 PRINT"Si vous n'avez aucune chance p 
our eyiterles spirales, t'oncez leur dess 
us tBANZAIIIIII),vous aurez peut- 
etre une chance de les esquiver . "; 
190 PLAY"02A2T6L12FAMI":PLAY"L24RELI£FAS 
030FAMIREL72DGL12FAMIREREFASOL24SOL12SOR 
E" 

£00 PLAV"L36D0LI£FAFAL£4FAL12FAMIL24REL1 
2FAS0SOFAS0LAL96FA" 

210 PLAY"L43SrL12D0RED0L48D0L12LALASIbLA 
L48LALl£REREREREL48D0Ll£SIbSIbD03IbL43SI 
b" 

2£0 PLAY"Ll£f1IMIFAS0S0FAFAriIFAFARED0L18D 
0L12SISID0MI.DOL48D0" 

£30 PLAY"L£4LAL12S.IbLALAD0D0D0L36RERELl£ 
PSIbSIb3IbD0SIL48SI" 
240 PLAY"L1£HINIFASOSOFAMIL96FA" 
250 COLOR£:LOCATE4,20:PRINT"LE PROGRAMME 

RISK(Jeu) SE CHARGE"iBEEP:BEEP: BEEP 
260 RUN"RISK4" 



LISTING 



par LE LUU HINH Guan & Hoang 
Pour TH0MSON+- H „-,ettes de Jeu 
Copat-i^. t. 1986 



I 



100 PRINT "Vo 



10 CLS:ClEh=', ,65:SCREEN7. 0. -::Th=1:VI = 6!P 
PINTCHR*' £0 i :AU="l£345":A£f-="£3456" 

11 GOSUB 35 

1£ SCPEEI-iO..:'.0:W*=CHRl(127):BO>IFt0,3;-(7 
, 5)W*sB0XF' 3,3)-(10,15)W$:BOXF(8, 16) -(11 
. i?>W*«B0>:F(4,9)-(7, ll)W*:B0XF(l,6)-(3, 1 
7>W$:PSET(0,6>GR*(31>:PSET(16,3J'GR*(19): 
PSET(7,6>GR$<31):PSET(7,8)GR$*38 1 :PSET(1 
0.9)GPS(25>:PSET(4, 1£) GPS < 3£ ) : F'SET(7, 12 ',' 
GR*(31> 

13 PSET(ll,15)CR*<£8)iPSET<8, 17)GR5(£7u 
B0XF(13,3 ,| -(17,4)W*:B0>!F(14,5>-(16, 15)Wt 
:BOXF. 13. 16>-(17, 17>Wf : PSET( 1 3, 5)GR* (31 ) 
:PSET( 17,5)GR*(3£)!PSET(13, 15 >GR*(30> : PS 
ET(17, 15>GPS(£8):B0>:F<£6,3)-(£8, 6)Wf!B0X 
F(19,3)-(£5,5)W*:B0XF(19,6)-(£1, 11>W* 

14 B0XF(££,9)-(£8, 11)U*:B0XF(£6, l£>-(£8, 
17)U*:E0XF(£3, 15)- (25, 17) W$: BOXF( 19, 14)- 
(££, 17)W*:PSET(19,3)GR*(£4):PSET(£8,3)GR 
*(19):PSET(££,6>GR$(32):PSET(£5,6)GR*(31 
:'iPSET<££.S)GR*(£8)tPSET(£8,9)GR*(I9):PS 
ET(19, 11)GR$(27):PSET(25, 1£>GR* (31 ) : PSET 
(£5.14)GR*(30) 

15 PSET (22, 14)GR*(£8)iPSET(19, 17)GR*(£7> 
: PSET (£8, 1? >GR*(£5) ( BOXF(30, 3)-(33, 5)W*« 
B0XF(31.6)-'.33, 1 4>W*: B0XF(38, 15>-(33, 17) 
W*:PSET(30,6>GR*(31>:PSET(38, 14)GR«(30>: 
LINE(34,7)-(38,3)GR$(33)=LINE(34,3)-<39, 
3)US:LINE(34,9)-(39,4)W*:LINE(34, 10) -(39 
,5)W* 

16 PSET (10, 10)GR*(19):LINE(35, 10)- (39, 6) 
GR*<36)!LINE(35, ll)-(39, 15)GP*(35) : LINEC 
34.11)-(39, 16)W*(LINE<34, 12)-(39, 17)W*:L 
INE(34,13>-(38, 1 7 )W*f LINE(34, 14>-(37, 17) 
GR$(34): SCREEN?: LINE(7,£0)-(3£,£0)W$, 2 

17 PSET(6,28>GR*(27)JPSET(6, 19)GR*(28):P 
SET(33,20)GR*(25):PSET(33, I9)GRJ(30) : LOC 
ATE8, 19:C0LQR6tPRINT"LE LUU MINH Quan 8. 
Hoang"!LOCATEl!6,a3iCQLOR0,7:PRINT"<ACTIO 
N>" 

18 IF STRIGC0) THEN GOTO 98 ELSE SCREEN, 
.4: SCREEN,, 7: SCREEN,, 1: GOTO 18 

35 DEFGR*<0'=60, 126,195,855, 126, 165, 153, 
66 

36 DEFGRf<l)=S5, 170,125, 190, 125, 190,84, 1 
76 

37 DEFGPt(2 , '=66,36, 153, 126-90. 153,24,36 

38 DEFGP*(3?=165.66,93,24.24,93,66, 195 

39 DEFGR*(32)=234, 138,216, 1 72. £1 3, 165, £2 
9.2£7:DEFGR*(56) = £45.£50,£53, 123,63,31, 1 
5.3!DEFGP*C57>=77, 186,215.839, £55,255,25 
5.£55:DEFr J R*<53-'=£47, 175,95, 198,252,248, 
£40. 192 

40 DEFGRt(4)=£4, 1£6,£55, 126, 68, 126, £55, 1 
82 

41 DEFGR$(5)=170,£55,£55, 1 0£, £55, 8, £55, 1 
78 

4£ [>EFGP*(6)=£17, 1 91, 1 19, 1 1 1 , £51 , 1 90, 247 

43 J ['EFGRr( ? '' = 129, 10£, 1 £6, 68,60, 126, 102,1 
£9 

44 DEFGR*'- 19)»£S4, £48, £5£, 254, 254,255, 25 
5. £55 

45 DEFGRI' 3 ' = £52- 254 . £53 . 253 . £5 3, £53, 67, 
63 

46 DEFGR*':37>=0,0,6,0,3, 15,63, 127 

47 DEFGRf43' = £'55.£5'?.£5 , ?.£5?.255, 159,79 
,199 

48 CEFGR*< 38 3*8, 1 . 3, £54, 253, 252, £54, £54 

49 DE"GR*(39 > = £55. £5 C ... u.255.0, 126,129,60 

50 DEF0WC9 '=36,73, 146,36,73, 146,36,73 

51 DEFGR*' 10.' = 154,69.48.77. 146- 100, 147,4 



5£ DEFGR*(ll)=£4,60,90,£31,23i,90,68,24 

53 DEFGR*(£4>=7, 31,63, 127, 127,255,255,25 
5 

54 DEFGRK25 > = £55 . £55 . 255. 254 . £54, £52, 24 



56 DEFGRSf. £7 )=£55, 255, 255, 127, 127> 63,31, 

57 DEFGR$(£8)=8,0,0, 128, 123, 19£.££4.248 

58 DEFGR*(30)=8 1I 0,0, 1, 1,3,7,31 

59 DEFGR*(31)=31,7,3, 1, 1,0,0,0 

60 DEFGR$(13)=68,66, 145, 185,139,153,66,6 


61 DEFGR$(14)=51,284, 0,51,204, 8. 51,284 
6£ DEFGR*(15)=68,60,£55, 1 £9, 129, 255, 1 02, 
102 

63 DEFGR*(16)=£55,254,253,250,£45,234,21 
3, 170 

64 DEFGR*(3£>=248,224, 19£. 1£3, 128,0,8,6 

65 DEFGRi(17)=126,255. 153,219,126-66,36, 
68 

66 DEFGR*(33>=1, 3, 7, 15, 31, 63, 1 £7. £55 

67 DEFGR*(34)=£55, 1£7, 63, 31 . 15, 7, 3, 1 

68 DEFGR*(35) = 1£8,I9£. £24, 246, £48,252,25 
4,255 

69 DEFGR«i.36) = £55.254.25£.248,£40.££4, 19 
£, 128 

70 DEFGR«(1S)=12,8£, 152, 182, 109, 25, 74, 48 

71 DEFGRf(40)=8, 1£B, 192,127, 191,63, 127, 1 
27 

72 DEFGR*(44)=255,£55,£55,£55,255,253,24 
2,2£7 

73 DEFGR*(45)=£55,22?,££5, 192, 192.192, 19 
2,224 

74 DEFGR* ( 46 > = 15, 15, £3, 59, 45, 73, 113, 144 

75 DEFGR* (£0>=60, 126,255,231, 195, £3 1,1 £6 
, 126 

76 DEFGR*(21 ) =36, 66, 189- 189, 126, 189, 66, 3 
6 

77 DEFGR*l47)=235,£24,243, 255, 255, 255,25 
5,255 

78 DEFGR* ( 48 )=£55, £55, 23 1,231, 195, 129, 15 
3,255 

79 DEFGR*-; 49) = 2 15, 7, 207, £55, £55, £55, £55, 
£55:DEFGR*(50)=240,240,£3£,££e,188, 146, 1 
4£,9:DEFGR*(51> = 1?6,232,77,59, 19, 15,3, l: 
DEFGR*<5£)=£55,£54,£53,235,22£, 180,209,2 
34:DEFGR*(55)=13,£3, 178,220,200.240, 192, 
123 

80 DEFGR*(-22) = 10£, 10£, 153, 153, 10£, 10£, 15 
3. 153:DEFGR*(53> = 125- 186,85,234. 148,8,2, 
135: DEFGR* (54) -255, 255, 95, 175,85,43,13.9 
1 

81 DEFGR*(23)=255,255,255,255,85, 170,85, 
170: DEFGR* (64) =8, 0,0, 24, 24. 0.6.8: DEFGR*' 
63) = 0.8, 36,8,8,36.0.0.-DETCfi'*i62 ' = 0,84,0. 
6.66,0.54. 0: DEFGR* C61 ) = 146. 0, 8, 129,6, 6, 1 
46,0 

8£ DEFGR*(£6>=153,60,90, 153, 153,98,66,15 

3 

33 DEFGR$(41)=0, 0,0.0, 192, £48,252.254 

84 DEFGR* ( 42 > =255. 199,135,3.3.3,3.7 

35 DEFGR*' 29;.=8£. 137. 16, 170,85,8, 145,74: 
RETURN 

36 PSET(M,N>" ":PSET(A,B) F0RI=5T01ST 

EP-i:PLAv" l T3A5L7.0"+PIGHTS(STR*<I),l) + "SI 
S0D0"JPSETkA,B)GR*(I+67-8)tNEXT:PLAY"D0D 
ODGD0DOD0D0D0D0":X=A:Y=B:NC=6 

88 VI=VI-liIF VI=8 THEN FORI =6T0167: B0X< 

8,I)-(319.I),0:NEXT:RUN 

90 L0CATE34, 23: COLOR0, 7: PRI NTVI : COLOR, 

95 RETURN 

98 SCREEN, 0.6:GOTO1000 

99 , 

180 'I -= DEPLAQEMENT DU VAISSEAU =- I 

118 C0L0R7:A=X:B=Y:0N STICK(0) GOTO 113, 
111, 116, 111,120, I'll, 121,111 

111 IF INKEV**" "THEN GOTO1000 

112 G0T0123 

113 IF Y<4 THEN GOTO 123 
U4 Y=Y-1 

115 G0T0123 

116 IF X>40 THEN GDT0I23 
11? X=X+1 

118 G0T01E3 

I£8 Y=Y+i:G0T01£3 

121 IF X<1 THEN GOTO 123 

12£ X"X-1 

1£3 IF SCREEN<X,Y)=0THEN GOTO 325 

124 C0T0148 

125 IF P0INT(X*8+3,Y*8+2)=G THEN »A:Y=B 
:GOTO160 

126 IF P0INT(X*8,Y*8+1)=1 THEN G0SUB36SG 
0T0118 

130 IF P0INT(X#8,Y*8+2)=3THEN PLAY"T£L N + 
MID*(A2*,RND*4*1,1)+"D00"+MID*(A1*,RND*4 
+1,1): SC=SC+1 : PO=PO-1 (LOCATES, 23iC0L0R8, 
7:PRINTSTR*<SC):COLOR,0:IF PO=0THEN TA=T 
A+l:GOTO1000 

140 PSET(A,B>" ":PSET(X, Y>GR*(0),7 

158 'I -= MOUVEMENT DES SPIRALES =- I 

131 , 

160 IF NC=1 THEN ON HO GOTO 210, 220. £30 

180 N=3 

190 NC=l:IF N=Y AND M=X THEN G0SUB86:G0T 

0110 

£08 GOTO£90 

£10 PSET(M,N)" ":N=N+i:M=M+(X<M)-(X>M): I 

F M=X AND N=Y THEN G0SUB86: GDT01 10 

£1£ IF SCREEN(M,N)=0THEN NC=8: M= INT(48*R 

ND):GOTO110ELSE G0T0£96 

££0 PSET(M,N) N=N+l:IF H=X AND N=Y TH 

EN GOSUB86:GOTO110 

££5 IF SCREEN(M,N)=0THEN NC=0: M=X: G0TO1 1 

0ELSE GOTO£90 

£30 PSET(M,N)" "!N=N+l:M=M+INT(RND*3>-i: 

IF M=X AND N=Y THEN G0SUB86: G0T01 10 

248 IF M>39 OP M<0 THEN NC=0: M=X: GOTO 1 1 

ELSE IF SCREEN(M,N)=0THEN NC=0: M=X: G0T01 

10 

290 PSET(M,N)GR*(18),5:GOTOU0 

298 ' 

299 >I -= AFFICHAGE VIES+SCORE =- I 

308 ' 

301 BOX (2, 178) -(318, 198), 1 : BOXF ( 8, 173)-( 
311. 195>,7:M=0:N=0 

310 LOCATE2,23:C0L0P8,7:PRINT"SCORE: 

VIES: U ;VI 
348 COLOR, 0:RETURN 

998 M -= DESSIN DES TABLEAUX =- I 

999 , 



Suite 
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C'est nouveau, qa vient de sortir 



COMME EN 14 ! 



Ca y va comme a la manoeu- 
vre : il soft au moins un 
nouveau soft pour One 
tous les six mols. C'est I' avalan- 
che. Dernier en date : BD-Disk, 
d'lnformatique et Nature, qui 
necessite un lecteur de disquettes 
Microdisk. Que fait-il, ce brave 
logiciel 7 II gere les disquettes. 
Ach, pas tres interessant, hein 7 
Vos disquettes, vous les gerez en 
les foutant en vrac sur le bureau, 
pas besom de gestionnaire pour 
ca. Mais si, c'est pas un gestion- 
naire a la con, genre "la disquette 
bleue est dans le tiroir du bas, a 
gauche", pas du tout. C'est bien 
mieux que ca. 

On boote le programme et on 
insere la disquette a gerer. La, on 
peut avoir le catalogue (option inu- 
tile), proteger ou deproteger les 
programmes en ecriture (option 
inutile), renommer un fichier 
(option inutile), modifier les adres- 
ses de debut et de fin (la, foutre- 
ment utile, on peut ainsi faire fonc- 
tionner un programme basic ail- 
leurs qu'en 501), affichage a 
I'ecran du contenu des secteurs 
(genial. On peut soit choisir un 
secteur donne sur une piste don- 
nee, soit choisir un fichier, auquel 
cas le programme trace tous ies 
secteurs qui le composent. On 
peut le modifier a volonte, tres pra- 
tique), effacer des fichiers (option 
Inutile), edlter les fichiers proteges 
(pas tres utile), reloger le Gamei- 
nit (le nirvana. Les programmes 
qui sont logos dans le Dos peut du 
coup fonctionner, puisque c'est le 
Dos lui-meme qu'on deplace), 




catalogue automatique (permet de 
faire un catalogue automatique 
avec selection des fichiers choisis 
sous Gameinit. Avantage : ca ne 
prend pas de place et ca evite de 
le faire soi-merne), contrOle dis- 
quette (verifie les secteurs un par 
un), copie de pistes (permet de 
copier des disquettes qui ne pas- 
sent pas au BACKUP du Sedoric), 
et affichage sur imprimante. 
C'est pas tout. II y a aussi une 
option transfer! cassette vers dis- 
quette. Soit on transfers bestiale- 
ment si le programme est enregis- 
tre normalement, soit on lit les 
octets a la volee, ce qui permet de 
charger un logiciel mdme lorsqu'il 
n'a pas d'en-tete. Imaginez ce 
qu'on peut en faire : des copies 
anti-cafe, des copies antl-the, des 
copies anthchocolat, etc, etc. Une 
benediction. 

Remarquez, c'est pas mal qu'it n'y 
ait presque plus de programmes 
sur Orlc : ceux qui sortent sont a 
le hauteur. 



NANNONCE 



Apple Expo se tiendra dans 
le pare de la Villette a Paris 
du 19 au 22 juln. Y aura 
des faisceaux laser et des Apple. 
D'autres questions 7 




LIQUIDATION 



Atari avait slgne, il y a quel- 
ques mols, un contrat de 
fabrication de monrteurs 
avec Thomson. Ce contrat n'est 
pas renou vele, car Atari est main- 
tenant en mesure de fabriquer les 
siens propres. En consequence, 
les nouveaux 1040 STFC sont 
livres avec monlteurs Made In 






\0lr0 STFC 1 



Atari, et les anclens sont llquides 
avec le 520 STFC pour le prix inte- 
ressant de 8000 balles, kermolns 
de 10, tout compris. lis sont 
chiants, chez Atari, ce sont les 
seuls qui baissent leurs prix sans 
qu'on leur demande. On peut 
mdme pas dire que c'est grace a 
nous. 




UNE IMPRIMONTE 



Atari sort une nouvelle impri- 
mante pour ses ST. Elle 
travallle a 80 cps, elle frlc- 
tionne et tractionne en beaute, elle 
a plein de polices de caracteres 
(dont le katakana japonais), elle 
est graphique, compatible IBM, 
elle est disponible, matricielle a 
impact, bidirectionnelle, chez les 
revendeurs et elle imprime 132 
caracteres par ligne. Et en plus, 
elle est en photo. De quoi se 
plalnt-on, je vous le demande. Elle 



a meme un prix : 2500 balles, ker- 
moins de 10. Amen. 
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Jest vraiment a deses- 
r 



C* perer, le Spectrum n'a 
t-il pas droit a un bon 
assembieur 7 Visiblement, non I 
Tenez, prenons Laser Genius de 
Ocean, ce programme est, paralt- 
il, un editeur, assembieur, moni- 
teur et analyseur, D'apres I'edi- 
teur, il permet une nouvelle appro- 
che de la programmation en 
assembieur, mais bon, c'est pas 
ca. Pourquoi 7 C'est tout simple, 
ce soft est tres (trop) complexe, ce 
qui fart qu'il faut sans arret se refe- 
rer a la documentation. Je suis 
d'accord avec vous, c'est pareil 
pour tous les langages. Mais, petit 
probleme, la documentation est 
nulle et pleine d'erreurs, dur I Bon, 
je prends un example : pour sor- 
tir du Basic il faut taper Exit, mais 
ensuite pour retourner a I'assem- 
bleur vous devez taper Randomize 
User XXXX, avec XXXX les adres- 
ses contenues dans le manuel. 

Mais, c'est normal 1 1 1 D'accord 
avec vous, mais, les XXXX du 
manuel sont... faux, comment faire 
pour revenir a I'assembleur 7 Bon, 
c'est pas tout, II existe deux ver- 
sions de ce programme (elles sont 
toutes les deux livrdes), une ver- 
sion implantee dans le milieu de 
la memoire, et une version situee 
dans le haut. Mais, encore une 



Laser A 
Genius 



fois, big probleme : la version la 
plus interessante (la version haute) 
est buggee. Bien, c'est pas tout 
ca, il faudrait peut etre essayer de 
trouver des bons c&tes a ce soft. 
Ah, ca y est, il a un editeur plein 
ecran, ce qui est pratique, en plus 
ii marche, ce qui n'est pas le cas 
de tous les assembleurs pour 
Spectrum. Pour le rests, c'est un 
assembieur, mais il ressemble a (a 
botte de gadgets du sieur James 
Bond dit le 7, tant le nombre de 
fonctions inutiles est eleve, voila, 
vous savez tout, pas tres excitant 
n'est-ce pas 7 

Laser Genius de Ocean pour 
Spectrum. 



LIFE LIFTING 



Vous voulez refaire votre 
vie 7 C'est possslble, 
grdce au miracle de la 
revolution Informatique I En effet. 
notre societe (Activlsion) a la joie 
et I'honneur de vous informer de 
la nalssance de Alter Ego pour 
votre C 64/128. Ce programme 
vous permettra de vous composer 
une nouvelle personnalite et de 
vivre d'Gtonnantes aventures. Ce 
merveilleux voyage, que seul notre 
societe est en mesure de vous pro- 
poser, commencera par votre 
naissance, ensuite vous devrez 
exploxer le vaste monde et ses 
posibilites. Ah, que de bonheur en 
perspective : decouvrir votre main, 
faire votre premier sourire, mar- 
cher et parler pour la premiere 
fois, rencontrer votre premier 
amour, alter a I'ecote, vous marier, 
oui, vous pourrez vivre de nou- 
veau. Mais la vie n'est pas falte de 
satisfactions ou de deceptions, 
elle est falte d 'experiences, c'est 
pour cette ralson que notre pro- 
gramme vous mettra aux prises 
avec un certain nombre de situa- 
tions qu'il vous faudra resoudre et 
comprendre. Pour resoudre ces 
situations, il faut cliquer des ico- 
nes contenant des questionnaires, 
en fonctions de vos reponses 
I'ordinateur vous indlquera fe 
resultat correspondant. De plus, 
vous pourrez voir le resultat glo- 
bal de votre vie en allant cliquer 
I'icone de statut, apres cela vous 
pourrez consulter votre niveau 
intellectuei, social, connaitre votre 
condition physique, etc. Ce jeu ori- 
ginal, et entierement nouveau, 







n'est pas traduit en francais, done, 
si vous ne connaissez pas 
('anglais, vous ne pourrez pas pro- 
filer de ce jeu, et nous n'avons pas 
peur des mots, vous perdriez 
beaucoup. Evldemment ce pro- 
gramme est en couleur. De plus, 
il en existe deux versions : une 
pour femmes, et une pour hom- 
mes (mais une femme peut utiliser 
la version pour homme, et vice- 
versa). Enfln, il faut savoir que 
nous acceptons pariaitement les 
critiques emises par un certain 
nombre de personnes quant a la 
faiblesse du son, et au relatif 
manque de diversite des icdnes 
presentes a I'ecran. Mais, les 
points faibles de ce programme 
s'oubllent tres facilement, si Ton 
tient compte du c6te resolument 
renovanur de ce logiciel. 
Alter tgo de Activlsion pour C 
64/128. 



REVELATIONS 



J* adore travailler a 
' I'HHHHebdo, parce 
qu'on en apprend tous 
les jours. Tenez par exemple, 
saviez-vous que le vrai nom de 
Dalida est Yollande Gigliotti, ou 
que le prenom complet du mat- 
erial Petain etait Henri Philippe 
Benoni Joseph et que le vrai nom 
de Tony Curtis est Tony 
Schwartz ? Ce sont des choses 
qu'on apprend, comme ca, avec 
('experience, au fur et a mesure 
que le temps passe. 
Et puis, on apprend aussi que 
quelque part sur notre chere pla- 
nete il y a une ville qui s'appelle 
Deathville, qu'un type nomme 



che a tous les coups. Et, en 
assemblant tous ces objets 
comme des pieces de puzzle, il 
finlra par trouver la sortie de cette 
ville infftme. 

Ce que je n'ai pas compris, par 
contre, c'est pourquoi il est tout 
blanc, pourquoi quand il passe 
derriere ou devant un mur ou un 
objet, II devient transparent, a en 
faire paiir M. Scotch. Et puis il est 
pas capable de mettre un pled 
devant I'autre, il glisse sur ie sol. 
Un sol pas joli du tout, d'ailleurs, 
comme le reste du decor. Mais il 
a une petite musique qui vient le 
supporter dans sa recherche de la 
liberie, une musique tres mal faite, 
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Sammy Solver s'y trouve prison- 
nier, et qu'il fait tout pour s'en 
echapper. Ce que mes sources ne 
m'ont pas dit, par contre, c'est 
pourquoi il est prisonnier, ce mec. 
Mais il serait tres interessant de 
sulvre son histoire, a ce gars-la. 
Parce qu'il est pas aussi con qu'il 
en a I'air (heureusement pour lui 
d'ailleurs, parce qu'il a VRAI- 
MENT I'air con), faut pas croire ca. 
Des qu'il trouve un objet sur son 
chemin, paf, il le ramasse, ca mar- 



certes, mais une musique quand 
meme. 

C'est vraiment tres chouette d'etre 
journaliste a I'HHHHebdo. Avant, 
j'aurais jamais cru que ca puisse 
arriver, ce genre d'histoires. 
Je me demande quand meme si 
je n'aurais pas pretere rester dans 
I'ignorance, parce que franche- 
ment, on a deja vu beaucoup 
mieux, comme soft. 
Deathville de Bubble Bus Soft- 
ware pour Amstrad. 



C0MPILEZ, 

IL EN RESTERA TOUJOURS 

UN PETIT PEU 



Le sport, c'est la sante, dlsait 
je ne sais plus qui. Mais 
gaffe, la. Pas n'importequel 
sport, heln, les jeux de sport, pas 
les sports qui ne sont pas de jeux, 
ni les jeux qui ne sont pas de 
sports. Pourquoi je raconte ces 
conneries, moi ?Qu'est-cequeje 
voulais vous dire, deja 7 Ah oui, ca 
y est, je sals. Je voulais vous par- 
ler d'une compi- 
lation de jeux de 
sport. Son nom ? 
Sport Pack, 
pourquoi ? Parce 
quoi ? Ah ben, 
oui, si j'avais 
commence par 
la. j'aurais pas 
eu besoin de 
faire toute cet 
intro vraiment 
nulle. Done, on 
va causer de ga. 
Sport calme 
d'abord avec un 
superbe Snooker 
qui est nul. 
Sport pointu 
ensuite avec On 
the Oche qui est 
un jeu de flechet- 
tes nul. 

Sport televisuel 
ensuite avec 



World Cup Football qui donne la 

turista rien qu'a le voir. 

Sport nul avec Olympics 

(j'abrege). 

Sport troue avec Golf (qui est nul). 

Sport. chevalin avec Derby Day, 

qu'on' aurait pu s'abstenir de. 

Compilation nulle avec Sports 

Pack de Geoff Records pour 

Spectrum. 




AVENTURE 
POUR CAVES 



Si je vous dis "the very big 
cave adventure", vous me 
repondez quoi ? 
Ahhhhhh, voila enfin une bonne 
question, ca falsait longtemps que 
j'en attendais une aussi bonne, 
merci beaucoup. 
Bien, The Very Big Cave Adven- 
ture est un jeu d'aventure graphi- 
que edtte par CRL pour le Spec- 
trum, qui a ete ecrlt avec "The 
Quill", et qui est nul. 
Ca vous va, comme reponse ? 



bougez pas 



Non ? Son. 
j'continue. 

Voyons d'abord le scenario : quel- 
que part, au fin fond d'une foret, 
git une vallee oubliee du temps, au 
fond de laquelle repose une dalle 
d'acier, au fond de laquelle se 
trouve un escalier, en bas duquel 
existe une cave, au fond de 
laquelle se trouve le secret de la 
richesse, au fond de laquelle... ah 
ben non, c'est flni. En resume. 
c'est un jeu qui touche nettement 



( tiki fa &tiAGH*^ 




le fond. 

Done, I'intrepide voyageur (vous 

en I'occurrence) doit retrouver la 



vallee, puis la dalle, puis t'escalier, 
puis les caves, puis la richesse, 
puis rien du tout. C'est un jeu de 
puiste, en somme. 
Sinon, le jeu est servi par un gra- 
phlsme pas beau du tout, bref, nul, 
et qui en plus a la particularite de 
scroller avec le texte, ce qui fait 
qu'au bout d'un moment it faut 
entrer la commande LOOK si Ton 
veut le revoir. 

En par Ian t de commandos, 
I'anaiyseur syntaxique est tres 
mauvais et ne comprend que ce 
qu'il veut bien. 

Voila, e'etait ma reponse a votre 
question concernant The Very Big 
Cave Adventure de CRL pour 
Spectrum. Merci de votre atten- 
tion, a vous les studios. 
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C'est nouveau, pa Went de sortir 



VEND PIRE 



Faire un bon programme sur 
Thomson n'est pas simple, 
mais si on se casse un mini- 
mum le cul, c'est faisable. La meil- 
leure preuve, c'est Inlogrames qui 
la fournii avec Vampire pour MO 
5, TO 7/70 et TO 9. Bien sGr il faut 
pas trop en demander, vous 
n'aurez pas droit a un scenario ori- 
ginal mais a une histoire pompee 
sur Sorcery, j'expiique : vous vous 
trimbalez dans des jardins, et qu'y 
rencontrez-vous ? Des affreux 
vampires, sorciers, et autres ecto- 
piasmes a roulettes qui ne font 
rien qu'a vous embeter, et que si 
ils continuent vous arretez de 
jouer pasque vous voulez pas etre 
mechant et que si c'est comme ca 
vous rentrez chez voire maman 
pour lui raconter tous vos mal- 
heurs et que votre papa qui est 
policier se tdchera tres fort et qu'il 
mettra tous ces affreux en prison 
pasqu'll est policier et qu'il aime 
pas qu 'on vous fasse des miseres, 
et na ! Mais, ne vous inquietez pas 
trop pour votre sante car vous 
pourrez neutraliser ces vilains pas 
beaux grace aux armes qui trat- 
nent dans tous les coins. Voifa. je 
vous I'avais dit, ca ressemble dro- 
lement a Sorcery, mais bon, pas- 
sons. Chose rare sur Thomson : 
ce soft est bien fait. SI, je vous 




assure, le seut defaut de ce pro- 
gramme est le manque de musi- 
que, a par des beeps a la noix le 
haut-parleur de votre televiseur 
restera desesperement muet, 
c'est vraimenl dommage. A part 
9a il faut savoir que les couleurs 
ne bavent pas, que les mechants 
pas beaux sont bien dessines et 
que c'est vraiment tres bien. Fran- 
chement ca fait plaislr de voir un 
bon soft sur Thomson, esperons 
qu'il y aura maintenant beaucoup 
de programmes aussi bons que 
Vampire d'lnfogrames sur 
Thomson. 



RADIATOR 



Comme je vous I'ai dit il n'y 
a pas si longtemps que 9a, 
la serie XL d' Atari n'est pas 
morte, pas plus que le XE d'ail- 
leurs. Pour le prouver, je vous pro- 
pose de jeter un ceil sur Mediator 
de English Software qui tourne sur 
les becanes en question. La mis- 
sion est simple : en tant que sau- 
veur de la galaxie, il faut que vous 
trouvlez le cristal du temps afin 
d'obtenir les pouvoirs surnaturels 
qui vous permettront d'eliminer les 
elements radioactlfs consecutifs a 
un Tchernobyl spatial. Vous 
voyez, tout 9a est tres simple et 
ordinaire. Mais voyons comment 
9a se passe en realite : au depart, 
vous commandez un petit vais- 
seau spatial qu'il faut faire atter- 
rir sur la planete contaminee, ce 
qui est simple comme bonjour, me 
direz-vous. C'est vrai, sauf que 
r inert ie du vaisseau est tres impor- 
tante, et cela rend la tache vrai- 
ment pas evidente, vous etes pre- 
venu. Ensuite, vous vous retrou- 
vez sur cette planete maudlte ou 
vous devez combattre des mons- 
tres radioaciifs jusqu'a ce qu'il 
n'en reste plus un seul. Cette 
phase du jeu est moins difficile 
que la precedente, mais c'est pas 
evident malgre tout. C'est bien, 
hem ? Mais, vous n'avez pas vu la 
realisation du true ! C'est geant, 



vraiment, super : les couleurs sont 
sympas, les petits dessins sim- 
plets mais agreables, I'animation 
tres douce et la bande sonore 
digne des meilleures. Bref , ce pro- 
gramme est vraiment tres 
chouette, et it montre bien que les 
Atari XL et XE sont au moins aussi 
bons que les Commodore 64 et 
126, dommage que les editeurs ne 
s'y interessent pas plus que 9a, 
parce que c'est dommage. Enfin 
bref. 

Mediator de English Software 
oour Atari XL et XE. 




DU CLUB 

A N'EN PLUS POUVOIR 



AMD. BASIC par example, 
nous en tout plein la vue ! 
Flgurez-vous que ce club 
vient de se doter d'une section, 
c'est le mot, micro-informatique 
dont les activites sont pour le 
moins... comment dire... actives. 
Des cours de basic, des brochu- 
res machinchose, des concours et 
encore plein d'autres trues Vien- 
na nt alimenter la musette quoti- 
dienne de ces enfants de la balle 
(pourquoi done ? Parce que le 
Comite d'Entreprise M. Dassault 
d'Argenteuil subventionne la 
chose avec grandeur. On I'applau- 
dlt !). Pour tout renseignement, 
contactor Michel Drumont au (1) 
47 98 54 06. 

D'autre part, une "journee du logi- 
ciel" aura lieu le 15 juin au foyer 
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rural de Puyhcard (le Pere Nod est 
dans le coup). La chose aura lieu 
avec I'aimable concours du cen- 
tre X2000 du coin. A litre indica- 
tif, sachez que ce patelin se trouve 
du cote d'Aix-en-Provence. II s'y 
tiendra entre autres une remise 
des prix du concours de logiciels 
pour les jeunes organise par la 
F.D.F.R.13 (Federation Departe- 
mentale des Fatigues des le 
Re veils I). 



JAPONIAISERIES 



Vous vous souvenez du 
feuilleton Shogun qui est 
passe a la tele il y a quel- 
ques annees ? Parfait. Votre 
memoire est bonne. 
Ce qui m'amene a vous donner 
deux nouvelles, une bonne et une 
mauvaise. Je commence par 
quoi ? La bonne ? Ok, vous 
i'aurez voulu. Bonne nouvelle : un 
soft en a ete tire. Mauvaise nou- 
velle : il est nul. Le titre de ce true 
est Shogun, et c'est Virgin Games 
qui a fait cette horreur. Evidem- 
ment, vous voulez savoir pourquoi 
c'est nul. D'accord, je vous 
raconte tout. Le but du jeu est tres 



simple : vous devez reunir au 
moins 20 suivants pour renverser 
le Shogun, et prendre sa place. 



Pour arriver a vos fins il vous fau- 
dra triompher d'un certain nombre 
d'epreuves qui sont du style sau- 
ver une belle servante des griffes 
d'un samouraT, faire prisonnier un 
dangereux bandit, vous faire des 
amis la ou il faut, etc. Tout 9a se 
passe dans de ravissants decors 
qui parail-tl sont au nombre de 
128, mais 9a j'ai pas pu verifier. 
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Bon, jusqu'ici c'est pas desas- 
treux, voyons la suite. La suite, 
c'est les personnages, ils sont 
moches et c'est con, et en plus ils 
bougent mal, ce qui est encore 
plus con. Si je vous dis que le son 
est nul, vous saurez presque tout. 
Presque tout ? Oui, car y a un true 
que je vous ai pas encore dit. c'est 
que lors du changement de 
tableau le temps paraft long, ce 
qui m'amene a penser que I'ordi- 
nateur se paume dans les 128 
tableaux, no comment. En plus, de 
legers sautillements de I'image 
apparaissent au debut du jeu, et 
9a c'est vraiment inadmissible car 
c'est la preuve que la programma- 
tion du logiciel est mal faite ce qui 
est un scandale quand on connait 
le prix de ce genre de programme. 
Bon, c'est simple : ne touchez pas 
a Shogun de Virgin Games pour 
Amstrad. 



UNE ENVIE 
PASSAGERE 



Tiens, j'ai envie de vous cau- 
ser d'Amstrad. Me deman- 
dez pas pourquoi, je 
saurais pas quoi repondre, j'ai 
envie de vous parter d'Amstrad, 
c'est tout. 




Et puis justement 9a tombe bien, 
j'ai deux logiciels d'Amsoft pour 
Amstrad. Quelle coincidence, 
vous trouvez pas ? 
Le premier s'appelle Doors Of 
Doom, Les Portes du Destin. 
Deja, quand j'ai vu le dessin sur 
la jaquette, je me suis mefie. Et le 
pire, c'est que j'avais raison. 
Tiens, par exemple, le scenario : 
le heros du jeu, Le-Seul-Qui-N'a- 
Pas-De-Nom, se reveille un beau 
matin dans un endroit etrange et 
inconnu de lui (et de nous par la 
meme occase, ca fait mieux). II a 
ete choisi parmi les trois milliards 
de terriens et le milliard de Chi- 
nois, pour representor la race 
humaine dans une espece de jeu 
dont le but est un progres techni- 
que inimaginable pour la Terre, 
ou, en cas de perte, la destruction 
de la planete. Point a la ligne, c'est 
tout. 

La-dessus on peut rajouter que le 
jeu beneficie d'un graphisme des 
plus ringards, d'une animation 
moins que moyenne, le scrolling 
etant lent et saccade, et d'une 
sonorisation vraiment nulle, sauf 
pendant la page de presentation 



oil les programmers ont rait un 
gros effort (ils pensaient surement 
que les testeurs de I'HHHHebdo 
allaient se content er pour leur cri- 
tique de lire la doc et de mater la 
page de presentation, eh bien ils 
se sont goures, les bougres, on fait 
notre travail a fond, nous (9a fait 
du bien I'autosatisf action de temps 
en temps !)). 

Le deuxieme de ces messieurs 
s'appelle Golden Path. La encore, 
la jaquette m'a fait sourire, et pas 
parce quelle est drole. loin de la. 
Dans ce jeu, vous devrez essayer 
d'aller le plus loin possible dans 
votre quSte du Savoir et de la Con- 
naissance (oui, ceux qui prennent 
des majuscules). La magie est de 
rigueur dans ce jeu, ainsi que les 
arts martiaux (ah oui, au fait : vous 
vous appelez Tchong, et vous etes 
tenement jaune qu'on croirait 
qu'un chien vous a pisse dessus). 

Sur votre chemin, plein de jolis 
monstres se dresseront, que vous 
devrez combattre a I'aide de I'un 
des deux arts cites plus haut. Vous 
aurez egalement a ramasser des 
objets de rencontre, des bien uti- 
les, comme des decoratifs seule- 
ment. Bref, c'est du classique et 
du deja vu. 

Ne tervergissons pas : le gra- 
phisme est nul, plus nul que lui tu 
meurs, le scrolling, ben, lieu, y en 
a pas, pas plus que de sonorisa- 
tion d'ailleurs. Et le plus chiant 
dans tout 9a, c'est que chaque fois 
qu'on change de decor, ie pro- 
gramme va charger sur la dis- 
quette les donnees du nouveau 
lieu ou Ton va, ce qui fait qu'on en 
a vite marre. 

Bon, on oublie tout 9a et on va se 
faire un petit flip' au bistro d'a 
cdte, c'est moins cher, et 9a rap- 
porte plus gros. 

Caves of Dooms et Golden Path 
de Amsoft pour Amstrad CPC 464, 
664, 6128 et 5512 (Ach ! Gag !). 



SINCLAIR 

VOIT LA VIE EN ROUGE 




Timex, qui s'etait iltustre 
dans la fabrication des 
Spectrum pour le Portugal, 
vient de signer un contrat avec 
('education nationale polonaise. 
Le marche porterait sur un derive 
du Spectrum anglais comparable 



a celui qui a tente de penetrer le 
marche americain. Timex n'aurait 
pas commente la nouvelle. 

Quand Thomson se cassera la 
gueule, vendra-t-on des T07 dans 
les kolkhozes ? 



GUEGUERRE 



Dm habitude, je n'aime 
guere les jeux qui en 
parlent (de la guerre), 
c'est comme ca, d'autres n'aiment 
pas les percepteurs, les dentistes 
ou les grevistes de la RATP, moi 
c'est les jeux de guerre. Comble 
de malheur pour moi, Cruisade In 
Europe est un wargame. Enfin, j'ai 
essays d'oublier mes prejuges, et 
je I'ai teste. 

Bon, allons-y, puisqu'il le faut. 
Dans ce euj {c'est du verlan), vous 
allez faire un retour dans le passe 
de 46 annees, rien que 9a. Des- 
tine tout d'abord a representor le 
general americain Patton, II se 
pourrait bien que vous ne soyiez 
en fait qu'un pauvre petit sous- 
deuxieme classe nettoyeur de 
chiottes, si vous ne repondez pas 
correctement au "test d'entree" 
pose au debut du jeu (c'est le ver- 
lan du verlan de tout a I'heure). 
Le graphisme du euj (c'est encore 
du verlan, c'est la derniere fois 
que je le precise) est vraiment bien 
fait : vous avez devant les yeux la 
carte d'Europe (ou du moins d'une 
partie, celle qui nous interesse 
dans ce cas-la, c'est-a-dlre la Nor- 
mandle et une partie de I'Angle- 
terre) qui occupe toute la partie 
basse de I'ecran, tandis qu'une 
fenetre de texte s'octroie cinq 
lignes en haut pour vous rensei- 
gner sur les differents points stra- 
tegiques ou les icones sur lesquel- 
les vous passez avec votre cur- 
seur (dirige par I' intermediate du 
clavier ou du joystick), les icdnes 
en question representant des 
armees (infanterie, aviation...). 
Mais ce n'est pas tout : quand 




vous arrivez sur I'un des bords de 
la carte, un superbe scrolling vous 
permet d'elargir votre champ 
d'activltes et de vision, en vous 
montrant une autre partie de 
I 'Europe. 

Quelques points nolrs au tableau 
de chasse de ce logiciel : la sono- 
risation quasi inexistante (II n'y a 
que quelques brultages de temps 
en temps), et le trop grand nom- 
bre de commandes disponibles : 
on a vite fait de se paumer 
completement. 

Cruisade In Europe de Micro- 
prose pour C64 et Atari XL. 



OXYGENE 

m m oila un jeu qu'il est bon, il d'arreter le jeu en plus). Bon, c'est 
\f tourne sur Amstrad et il genial, en plus, et d'ailleurs on ne 
w s'appelle Equinox. Le le dira jamais trop, c'est genial 
principe est relativement simple, quoi, c'est tout, en plus, c'est 
vous etes aux commandes d'un genial, si, je vous jure que c'est 
engin ovoTde d'enfer et vous devez genial, en plus I Vous etes encore 
nettoyer une mine de ses habi- la ? Mais, vous etes fou, en plus, 
tants. Habitants qui sont evidem- courez chez votre marchand de 
ment tres dangereux car s'its vous tapis pour vous procurer en plus, 
touchent vous perdez de I'energie, pardon, au plus vite Equinox de 
et si vous restez trop longtemps en Mikrogen pour votre Amstrad . 

rtfintnnt aver I'un rt'«nlrn mix vous 


perdez une vie. Bien sur, cette 
tache est tres simple, si il n'y avait 
que ga 6 faire le jeu serait mono- 
tone. C'est pourquoi vous devez 
ramasser des objets qui vous per- 
mettront de progresser a I'interieur 
de la mine, et done de poursuivre 
votre mission. Bon, c'est relative- 
ment classique comme true, par 
contre la realisation n'est pas clas- 
sique, c'est vraiment tres tres tres 
bien fait. Le graphisme est tres fin, 
et comme c'est plein de couleurs 
c'est joli tout plein. Pour ne rien 
gdter, vous avez droit a une ani- 
mation parfaite et a un bruitage 
plus que correct, en plus les com- 
mandes sont tres precises. Ah, un 
true que j'allals oublier : il y a une 
touche pause en plus (9a permet 
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C'est nouveau, pa went de sortir 



ALLAH DAPTATION 



Apres une longue et regret- 
tee absence d'une semai- 
ne, nous revoila, moi et 
mes adaptations, toujours prets a 
en faire sourire quetques-uns, et 
pteurer les autres. 

Monsieur Epyx et madame C64 
(ou I'inverse, je ne suis pas alle 
verifier) ont le plaisir, la joie et 
I'avantage de vous faire part de la 
naissance de leur petit dernier, 
Wintergames. Oui, bon, ga va, je 
sais que c'est pas nouveau, mais 
on vient (enfin !) de recevoir la ver- 
sion Amstrad de ce jeu, et je peux 
vous dire qu'elle a de quoi se faire 
pardonner son retard, la petite ! 
Je vous livre sans plus tarder les 
epreuves auxquelles vous devrez 
participer : Bobsleigh, saut a skis, 
patinage artistique et de vitesse, 
biathlon et quelques autres 
encore. 

Si je vous dis que le graphisme est 
bon, je serais en deca de la rea- 
lite, si je dis qu'il est extraordi- 
naire, je serais bien au-dela. II est 
excellent, quoi. 
Inanimation est bonne, oas sacca- 



Quoi, j'ai bien lu ? Oui, tres bien, 
et je le repete pour ceux qui 
seraient bouchers-charcutiers ou 
teinturiers-volaillers : les graphis- 




dee du tout, et assez rapiOe, con- 
trairement a d'autres softs de ce 
style, que je ne nommerai pas 
pour ne pas leur faire de tort. Cdte 
sonorisation, c'est pas vraiment le 
pied parce qu'elle est nulle (c'est- 
a-dire qu'elle est presente mais 
qu'on a vite fait de baisser le son 
du haut-parleur tenement elle est 
ma i faite) mais on ne peut pas tout 
avoir, comme me disait un ami 
ethiopien a qui je demandais s'il 
preferait avoir pour son anniver 
saire un bon parasol ou un Big 
Mac. 

Passons maintenant a Loriciels, 
qui a fait vraiment tres fort. Je suis 
sur que les amstradistes qui me 
lisent n'ont pas oublie le tameux 
"Pouvoir", jeu de strategic oppo- 
sant les manifestants aux pob 
ciers. Eh bien, que ceux qui pos- 
sedent un Thomson se rejouis- 
sent : ce jeu vient d'etre adapte 
sur leur becane (preferee ?}. 
I 'interet et le but du jeu sont tou- 
jours les memes : le joueur doit, 
suivant qu'il a choisi de se mettre 
dans la peau des flics ou dans 
celle des etudiants, soit defendre 
un depute lors de son discours 
electoral, soit I'attaquer. Je ne 
vous parlerai pas des graphismes 
qui n'ont pas subi la moindre 
petite transformation, |e vous jure, 
c'est EXACTEMENT les memes, 
toujours aussi sommaires, mais si 
jolis. Mais la ou te bat blesse, c'est 
du cdte sonorisation; il n'y a rien 
du tout. Rien ? Rien, repassez 
dans trois mois, on verra ce qu'on 
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mes sur le Spectrum sont meil- 
leurs, parce que plus jolis et plus 
fins, que sur le CBM. Ouf, ca fait 
du bien, pour une fois qu'on peut 
direca... Sinon, ('animation est un 
peu moins bien faite, la sonorisa- 
tion, quoique presente, n'est pas 
des plus geniales. Enfin bon, pour 
resumer, je dirai que pour son prix, 
c'est un des meilleurs jeux qui 
existe sur c'te foutue becane, 

Je vous fais une conclusion ? Bon, 
d'accord. Wintergames de Epyx 
passe du CBM au CPC, Pouvoir 
de Loriciels effectue Taller simple 
Amstrad-Thomson, tandis que 
Desert Hawk fait le voyage retour 
du CBM au Spectrum. En voiture, 
prochain arret : la semaine pro- 
chaine, si Dieu le veut, mon cher 
Philippe. 

peut faire pour vos beaux yeux, 
merci, au revoir. 

Players, ca vous dit quelque 
chose ? Mais si, vous savez, les 
softs anglais a 50 balles, la, mais 
si, vous savez bien... Bon, dans 
leur gamme, il y en a un qui 
s'appelle Desert Hawk, et qui tour- 
nait initialement sur Commodore. 



Desert Hawk. I 




Bon, si je vous en parle dans ces 
lignes, c'est parce qu'il vient d'etre 
I'objet d'une adaptation (sinon j'en 
parlerais pas dans cet article}. 
Et qui c'est qui recupere ce jeu, 
hein, qui c'est ? C'est le Spec- 
trum, bravo, c'est bien lui. Aussi 
incroyable que cela puisse paraf- 
tre, il a gagne en graphismes par 
rapport a la version Commodore. 



GOLF FINGER 



Une partie de golf, c'est 
quoi ? C'est de fair, des 
grands espaces, de la ver- 
dure. C'est aussi une certaine 
habilete a manier ie club, a choi- 
sir des trajectoires de balles 'heroT- 
ques'. Bref, toute une mentalite. 
Eh bien, sur micro, c'est possible. 
Ben si. Avec Championship Golf, 
par exemple (admire? I'habilete et 
la subtilite de mes transitions), les 
vents cathodiques et les espaces 
verts electroniques sauront vous 
eclabousser de realisme (tres joli, 
comme phrase, vous avez gagne 
le droit de la retire, dans tous les 
sens que vous voudrez). Le 
fameux terrain de golf de Pebble 







Beach jaillira de votre moniteur, au 
bosquet, que dis-je, au grain de 
sable pres. C'est tres important, la 
nature du sol, au golf. Faut savoir 
choisir son club selon. Va-t-on uti- 
liser le gros modele en bois qui 
arrive a porter a 220 yards quand 
on se debrouilte bien, ou un club 



d'acier, plus leger, pour bien lever 
la balle de I'herbe grasse ? Si on 
essayait plutdt, pour envoyer la 
balle au-dessus des arbres qui 
bouchent I'horizon, d'employer le 
club habituellement reserve aux 
terrains sableux, et d'une poussee 
orientee a 56° du sol exactement 
(sources : "Le dictionnaire du par- 
fait golfeur, chez Lablonde, 238 
pages et demie, 4 francs 50). Oui, 
la, en donnant un peu d'effet dans 
les poignets et en jouant des epau- 
les au dernier moment, ca devrait 
passer. 

Bien sur, on est constamment con- 
seille et assiste par 1'ordinateur. 
Ca en devient du G.A.O. (Golf 
Assiste par Ordinateur), mais le 
bon, le vrai joueur, lui, saura met- 
tre a profit ce petit vent marin, 
cette petite pente du terrain, pour 
atteindre sa able a coup sur. 
Petite pente ? Un sacre relief au 



contraire pour ce bord de mer 
Pourtant le gars qui n'a jamais 
joue au golf appreciera ce logiciel. 
Apres ca, il y jouera, pour de vrai, 
des qu'il pourra lacher son clavier. 
Parce que cote programmation, 
c'est une combine d algorithmes 
magnifiques et de la passion du 
golf, contagieuse. Animation 
magnifique en verite, on s'y croi- 
rait. Puis invitez les copains, a plu- 
sieurs joueurs c'est mieux, ca 
devient epique. 

Toi, la, retourne a I'aire d'entrai- 
nement, t'es nul au maniement du 
club numero 5. Moi j'ai passe le 
parcours 8 en 4 coups. Z'avez pas 
vu mais je vous assure. Bref, tres 
bon que nous sommes (le logiciel 
et moi). 

Golf Championship de Games- 
tar pour IBM PC et compatibles 
(vous savez, ceux a moins de 5000 
balles de golf...). 



UN SOUS 
SOUS-MARIN 



Aimez-vous les jeux nuls ? 
Mais lesvrais, hein, pas les 
imitations de jeux nuls, les 
jeux vraiment mauvais, quoi. Vous 
aimez ? Alors cet article a ete ecrit 
pour vous, et le logiciel qui va y 
etre passe a la moulinette aussi, 
d'ailleurs. 

Premierement, on replonge dans 
les annees 40, et quand je dis "on 
replonge", c'est fait expres, le 



Je profite d'un moment d'inatten- 
tion de votre part pour vous dire 
que si vous arrivez encore a com- 
prendre quelque chose, chapeau. 
Sonar-Search est un logiciel qui 
reunit toutes les particularites evc- 
quees plus haut. Le but de ce jeu 
est... mais je I'ai deja dit, mon 
Dieu, je deviens gateux, maman, 
au secours, viens a mon aide, 
debarrasse-moi de cette faiblesse 




terme est judicieusement choisi. 
Vous comprendrez plus tard. a 
moins que vous n'ayez deja 
regarde le titre de cet article, 
auquel cas ma vanne tombera a 
I'eau, si j'ose dire. 
Ensuite, on imagine qu'on doit 
faire la chasse a tous les 
mechants U-Boats allemands. 
Enfin, on essaye de croire qu'on 
est dans un sous-marin, et qu'il y 
a un avion au-dessus de nous qui 
nous envoie des images de ce qui 
se passe en dessous de nous, et 
que done on n'a pas la vision 
qu'aurait le capitaine d'un vrai 
sous-marin, mais celle d'une 
camera-espion qui nous survole- 
rait a une altitude de 1 5 metres au- 
dessus du niveau de la mer (done 
de 30 metres au-dessus de nous 
puisqu'on navigue a 15 metres en 
dessous du niveau de la mer) et 
qui aurait la faculte etrange de 
pouvoir filmer toute I'Europe en 
memo temps, ce qui n'est pas 
banal, convenez-en. Ca a des 
hauts et des bas, quoi. 



ire, ouf, merci, ca va 
mieux. Pour le but du jeu done, 
reportez-vous a la phrase com- 
mencant par "ensuite, on 
imagine"... 

Le graphisme est mignon, bien 
qu'il n exploits pas a fond les 
capacites du CBM, contrairement 
a ce que voudrait nous faire croire 
ta doc. 

La sonorisation est plaisante, par 
contre; il s'agit d'une musique de 
Wagner, intitulee "La chevauchee 
des Walkyries", et c'est celle qui 
avail servi de theme au film "Apo- 
calypse Now", ce qui n'est pas 
peu dire. 

Mais alors, pourquoi c'est qu'il est 
aussi mauvais, ce jeu ? Tout sim- 
plement parce qu'il ne presente 
aucun interet ludique, et qu'on a 
vite man 9 de faire mumuse avec. 
Ach, chalet oubiier un dernier 
detail : les trois quarts du jeu sont 
en basic meme pas protege, ca se 
passe de commentaires, je crois. 
Sonar-Search de Reseau Plane- 
taire pour Commodore 64 et 128. 



LES NOUVEAUX 
LUTINS 



Activision, tres enorgueillie 
par sa decouverte de petits 
habitants vivant dans les 
ordinateurs, vient d'annoncer les 
versions prochaines pour r Atari 
ST et i "Amiga de The Activision 




Little Computer People Disco- 
very Kit (excusez du peu). Celles- 
ci seront entlerement renouvelees, 
puisque les habitations des petits 
hommes seront (vanne a I'inten- 
tion de Milou (les petits hommes... 
Seron...)) redessinees et reamena- 
gees avec des meubles et des 
accessoires prenant en compte les 
posstbilites de ces machines (par 
exemple, le piano sera remplace 
par un orgue pour faire de ta zou- 
lie musique avec des combinai- 
sons sonores multiples). Seul le 
prix n'est helas I pas communi- 
que. 



Un golf, un ! Celui-ci tourne 
sur MSX, et il s'appelle 
Professional Hole In One, 
c'est une cartouche Rom, et c'est 
fabrique par Hal. Evidemment il ne 
faut pas s'attendre a un super true 
(ca tourne sur MSX, pas sur PC et 
compatibles), mais c est tout a fait 
honnete. L'avantage de ce pro- 
gramme c'est que Ton peut choi- 
sir son parcours, et meme le creer 
de toutes pieces. Dans ce dernier 
cas, vous pourrez fabrlquer votre 
propre bibllotheque de parcours 
car it est possible de les sauvegar- 
der et de les lire. Les bibliothe- 
ques ? Non, les parcours. C'sst 
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tres pratique comme system© car 
on peut s'entratner sur des biblio- 
theques person nali sees, pardon, 
de cette maniere on peut progres- 
ser tres rapidement dans la mai- 
trise du jeu et de ses commandos. 

Justement, je voulais vous parler 
des commandes, sachez qu'eiles 
sont classiques, elles vous per 
mettront de choisir un club, de 
regler I'inclinalson et la puissance 
du coup, d'influer sur la trajectoire 
de la balle, etc. Evidemment, vous 
devrez utiliser ces commandes en 
fonctlon des indications aff tehees 
a droite de I'ecran, ainsi vous 
pourrez connaltre le sens du vent, 
la distance du green, le nombre de 
trous et encore plein d'autres 
trues. Maintenant que vous savez 
ce que contient la droite de 
I'ecran, je suppose que vous vou- 
lez que je vous dise ce qu'll y a a 
gauche. C'est tout bete, a gauche 
il y a le trou que vous devez faire, 
lorsqu'it est fini le suivant apparatt 
grace a un scrolling du plus mau- 
vais effet, ce qui est bien dom- 
mage. D'ailleurs, c'est au niveau 
du graphisme que ce programme 
paraTt un peu faiblard : le dessin 
du parcours n'est pas genial, I'ani- 
mation pas terrible. Comme je le 
faisais remarquer au debut de 
I'article, ce programme est hon- 
nete sans plus, et c'est vraiment 
dommage que le graphisme n'ait 
pas ete plus fignole, mais bon, 
c'est jouable. 
Professional de Hal pour MSX. 



GESTION A DOMICILE 



Non, alors la, je suis pas 
d'accord ! A quoi ca sert de 
faire un jeu de simulation 
de gestion d'entreprise ? Hein, 
franchement, a quoi ca sert, je 
vous le demande ? 
Les plus malins d'entre vous me 
repondront que ga sert a simuler 
la gestion d'une entreprise, ce a 
quoi je repondrai qu'ils n'ont pas 
tort du tout, les bougres. Mais il y 



a quand meme des limites a ne 

pas depasser, je trouve. 

Bon, allez lire un autre article, et 

laissez-moi le temps de me calmer 

un peu, sinon je ne pourrai pas 

continuer a ecrire celui-ci, 

d' article. 

Ca y est, c'est tout bon, vous pou- 

vez revenir. 

Premierement, un soft tout en 

basic vendu a plus de 200 balles, 



c'est deja se foutre de la gueule 
du monde, ca. 

Ensuite, faudrait voir un peu a faire 
quelque chose qui puisse presen- 
ter un certain interet, pas comme 
ce AMX Manager. 
Voyons un peu de quoi il retourne; 
le menu apres chargement est le 
suivant : simulation financiers jeu 
contre 1'ordinateur ou jeu a deux 
joueurs. 

La premiere de ces options est 
censee pouvoir apporter une 
reponse a une question du genre 
"mon projet est-il rentable ?" ou 
"suis-je bon pour alter pointer a 
I'ANPE et perdre les deux cents 



milliards, huit cent quatre-vingt- 
dix-huit millions, neuf cent mille 
cinquante et un francs et deux 
centimes que j'avais investis ?", 
et se presente sous la forme de 
deux cents trilliards de questions 
auxquelles il faut repondre sans se 
gourer, sinon on doit tout repren- 
dre a zero parce qu'on peut pas 
corriger ses reponses en cas 
d'erreur. A signaler que pour don- 
ner sa reponse aux hypothetiques 
questions posees plus haut, 1'ordi- 
nateur ne tiendra pas compte de 
la concurrence, et que done la 
reponse ne sera pas tres tiable (a 
moins que vous n'envisaglez de 



batir un monopole), et encore je 
dis ca pour etre gentil, parce 
qu'elle ne sera pas fiable du tout. 
Soit, passons. 

Le jeu contre 1'ordinateur est la 
meme chose que precedemment, 
avec la difference qu'il ne s'agit 
plus de repondre a une question 
quelconque, que la concurrence 
est representee par 1'ordinateur, et 
qu'il n'a plus que cent mills ques- 
tions posees, du genre "produc- 
tivite ?" ou "inflation ?", ou 
encore "embauchement ou licen- 
ciement ?", bref, rien de bien 
interessant. 
Enfin, le jeu a deux est une ver- 



sion differente de I'option prece- 
dente, a part que 1'ordinateur est 
remplace par le petit copain, et 
que ca presente quand meme un 
tout petit peu plus d'interdt, pour 
peu qu'on aime ga et que le 
copain soit plus con que sot. 

A part ga, ben, heu... rien du tout. 
Amx Manager de AP Soft pour 
Amstrad (pour ceux qui auraient 
peur, "AMX" ne veut pas dire que 
le jeu ne se joue qu'avec la sou- 
ris, bien au contraire, il ne se joue 
qu'au clavier; d'ailleurs, je ne sais 
pas ce que ga veut dire, alors bon, 
me gonflez pas). 



Apartir du premier juillet, les etudiants bene- 
ficieront de 20% de reduction sur le prix 
public de i 'Amiga sur simple presentation de 
la carte d'etudiant, ce qui le mettra a 14000 balles 
au lieu de 17500 pour I'unite centrale, un moniteur 
couleur, 512 Ko de Ram et un drive. C'est encore 
trop, a 8000 on dit bravo. 
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DISQUETTES ? 

COUCOU LES DISQUETTES ? 

OU KELLES SONT LES DISQUETTES ? 

Blzarrement, nous avons constate la presence 
d'environ 200.000 disquettes trots pouces 
dans les locaux d'Amstrad, et pourtant, Ams- 
trad refuse de nous en vendre. Est-ce parce qu'en 
fait, ce stock tampon n'est pas tampon du tout ? Ne 
serait-il qu'un stock destine a honorer d'anciennes 
commandes ? Tenterait-on de nous fairs passer de 
fausses informations ? Le doute plane... 




LA BONNE 
RECETTE 

Vous connaissez la recette pour fairs un jeu 
d'aventure potable ? Non ? Bon, alors allez 
chercher votre calepin et votre stylo, et pre- 
nez des notes. 

Premierement, il vous faut un sujet qui tienne debout 
de preference. A partlr de la, vous creez votre sce- 
nario, en vous arrangeant pourqu'il soit le plus vrai- 
semblable possible, si blen sur vous desirez rester 
dans une realitu plus ou moms possible. 
Ensuite, si vous pensez que le texts seul est plutdt 
morne, il vous faut des graphiques qui soient les plus 
jolts possible. Sinon, contentez-vous de faire des 
phrases en bon francals, comprehensible de tous. 
Vlent maintenant le test : confiez votre merveille a 
des amis, et demandez-leur de jouer un peu, afin de 
determiner ce qui pourrait encore clocher dedans. 
Enfin, une fois les toutes dernieres verifications effec- 
tuees, envoyez-le a I'editeur qui semble vous faire 
les plus belles promesses, rapport aux droits 
d'auteur. 

C'est en suivant cette recette que je vais vous faire 
part de mes reflexions au sujet de Rebel Planet. 
D' une part, le scenario ne tient pas debout, pour un 
jeu d'aventure s'entend, parce que pour un jeu 
d'arcade, il serait pas trop mal : vous devez empe- 
cher les vilains aliens d'envahlr votre planete, ceci 
en un temps tout ce qu'il y a de plus limits, bien sQr. 
Question dessins, par contre, rlen a redire, ils sont 
tres bien faits. Certains sont meme animes (par exam- 
ple, vous voyez les etoiles defiler par le hublot de 




votre vaisseau spatial), meme si on peut emettre des 
reserves a ce sujet (pour reprendre I'exemple pre- 
cedent, les etoiles defilent lateraiement au lieu de 
vous foncer sur la gueule). 
Je ne sais pas si I'auteur de ce jeu I'a fait tester par 
des amis, mais si c'est le cas, ils ne devaient pas y 
connattre grand-chose : d'abord, I'analyseur de 
syntaxe est tres moyen, et ensuite, il est lent. Autant 
dire qu'il faut etre arms d'une certalne patience pour 
jouer avec ce soft. 

Enfin, I'auteur du logiciel I'a propose a US Gold, qui 
s'est empresse de I'editer. 
Si vous avez tout bien suivi ce que je vous ai dit, vous 
devrlez etre capable de faire un bon jeu d'aventure, 
et en plus vous devriez avoir compris que Rebel Pla- 
net de US Gold pour Spectrum est vraiment moyen. 



UN DISQUE DUR 
POUR ST, UN ! 






Vous me croirez ou non, mais je 
viens de toucher, de tripoter, de 
faire mumuse avec un disque 
dur pour Atari ST. Non, vous ne revez 
pas. Son nom, c'est Habadisk 10. 
Comme vous vous en doutez, c'est 
Haba Products qui a realise I'engin et 
c'est Run qui en est I'heureux impor- 
tateur. Je parie ma chemise (vous me 
devez une biere) que vous ignorez tout 
de ce qu'est un disque dur. Me 
trompe-je ? Non. Bon, alors sachez 
que ca a, dans le cas present, la forme 
d'une grosse bolts de 15 centimetres 
de large sur 1 5 de haut et 40 centime- 
tres de long. Sur la face avant, on dis- 
tingue une petite diode rouge qui 
s'allume quand le disque travaille. Au 
dos de I'appareil, un interrupteur se 
trouve etre la meilleure initiative du 
fabricant et un cable de 30 centimetres 
a peine sort en courant vers r Atari. 
Bien sur, il y a aussi un cable d'alimen- 
tation 220 volts bien tasses. 



On pourrait s'etonner de la petitesse 
du cable reliant le disque au ST mais 
on nous a assure qu'il s'agissait d'un 
problems technique trop difficile a 
resoudre. Bref, impossible de mettre 
une rallonge, ce qui vous obligera a 
mater le cul de la bete et, eventuelle- 
ment, a bouger votre moniteur. 
Dans I'embaliage, vous decouvrirez 
grace a vos petits yeux de debiles 
lubriques un manual d'une quinzaina 
de pages et une disquette permettant 
de mettre en place I'environnement 
(de prevenir le ST qu'il y a un disque 
dur branche) et de formatter I'engin. 
Une fois une troisieme icons installee 
grace a I'option "installer lecteur", le 
disque dur se comportera comme un 
lecteur de disquette normal. Si vous 
double-cliquez sur son icone, son cata- 
logue apparait dans une fenetre a une 
difference pres : la vitesse. Pour vous 
en assurer, copiez done un pro- 
gramme sur le disque du genre basic 







ou Degas, un true d'une centaine de 
kilos. Ensuite chargez-le, vous verrez 
que la difference est evidente puisque 
le chargement a partir de ce periphe- 
rique ne prend pas plus d'une 
seconde, meme pas le temps d'aller 
se soulager la vessie. 
La capacite de stockage attaint 10 
mega-octets, soit 10 millions de carac- 
teres ce qui represents 10.000 Ko soit 
un peu plus de 300 pages ecran haute 
resolution du ST (32 Ko chacune). 
Comme chacun sait. les deux avanta- 
ges d'un disque dur sont evidents ; sa 
rapidite et ses capacites. Par contre, 



son inconvenient majeur reste son 
prix : 3500 francs dans notre cas, soit 
0,00085 francs I 'octet, je vous passe 
le prix du bit, c'est tuant I 
Notons quand meme que le prix 
moyen du disque dur est d'habitude 
inferieur au notre. Disons aussi 
qu' Atari annonce pour le meme prix un 
systeme equivalent mais avec 20 
megas de stockage. Seul inconve- 
nient : on sait qu'il existe mais per- 
sonne ne le vend sur la place de Paris. 
On attend. Quoi qu'il en soit, les deve- 
loppeurs presses et stresses seront 
contents. 



RBLAX! 

JOUEZ LA MICRO 



102 PROGRAMMES 

Jacques Deconchat 
pour APPLE, AMSTRAD, 
T07/70 et M05, T09, C64, 
C128.MSX, ATARI... 
chaquelivre :120FF 
"un ouvraga rempli de jeux 
simples, dont tes listings 
depassent raremant una page 
at qui parmattant d'apprendre 
a programmer" (Amstrad 
Magazine). 

SUPER JEUX 

Jean-Frangois Sehan 
pour M05 et T07/70, 
AMSTRAD, APPLE, YENO / 
SEGA 3000... 
chaquelivre : 120FF 
"Plus qu'un divertissement, 
une veritable inflation au 
Basic Applesoft" (Llvras 
Hebob) 



EGALEMEm CHEZ VOTHE UBKABtE 
ETENBO UTIQUE SPECIALISES 




EN FAMILLE 

Jean-Francois Sehan 
pour APPLE, AMSTRAD, 
MSX... 

chaquelivre : 120.00FF 
"40 programmes simples en 
Basic dont las parties les 
plus interessantes sont 
commences" (Golden) 

BASIC PLUS : 
80 routines 

Michel Martin 
pour APPLE (95FF), C64 
(85FF), M05 et T07/70 
(105FF), 

AMSTRAD (100FF). 
"Faltes le plein de routines 
utiles et simples a appliquer 
(ce que c'est chouette 
I'lnformatlque quand c'est 
blen exptique)" (Science at 
Vie Micro). 
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SPECIAL 
CASSEROLES 



Amis da la telematique, ruses de 
t'interlace sane, soldats de I'octet 
transmis, public cheri mon amour, 
bonsoir ! 

Aujourd'hui, aujourd'hui meme, j'ai 
ete surpris ! Non, ne rigolez pas. J'ai 
vraiment ete surpris. Par quoi ? Par 
las Petele ! Si, vous connaissez, 
radministralion qui s'occupe des ■ 
telephones et tout et tout. Les tele- 
corns, quoi. Cast du pareil au 
meme. Done, j'ai ate etonne par une 
petite brochure editee par le minis- 
tere concerne intitulee : recomman- 
dations aux partenaires teletel. Une 
lettre accompagnait renvoi et expli- 
quait, en gros. que (attention, je vais 
bientot termer la parenthese) les 
PTT se sont gonfles a etablir un 
standard pour ce qui est des tou- 
ches speciales du minitel et leur 
gest ion et que si personne ne le suit 
et que personne ne le connait, eh 
ben le standard, il sera pas plus 
standard que ma belle-mere, si vous 
voyez ce que je veux dire. Saviez- 
vous par exemple qu'un appui sur 
r&p4tition tout seul reaffiche simpie- 
ment la page vtsualisee alors que 
('envoi de * suivi de r6p6tition fait 
de meme avec la mise a jour des 
informations ? Non, vous ne le 
saviez pas. Moi non plus. C'est 
lamentable. Olsons aussi que, 
comme tout les standards, ce 
systeme bloque I'innovation et done 
est en partie nefaste. Ailez, ne chi- 
potons pas et soyons bon joueurs, 
les PTT ont eu raison de faire cette 
brochure. Elle vous permettra, si 
vous avez I'intention de faire un 
micro-serveur de rester dans les 
normes d'un systeme comprehen- 
sible par tous. 

Ere informatique va sortir un nou- 
veau produit denomme Arsene et 
destine au monde du videotex. Pour 



vous, nen que pour vous, j ai pu tes- 
ter une super-preversion qui, mal- 
heureusement, en ce qui concerne 
le logiciel, n'a pas grand chose a 
voir avec cello que vous pourrez 
acheter. Enfin, c'est pas grave, je 
vais vous en causer quand meme, 
apres tout, je suis la pour ca, non ? 
Arsene se presente dans une petite 
valisette fort sympathique. L'engin 
que nous avons teste fonctionnait 
sur Amstrad mais Arsene devrait 
aussi sortir pour Thomson. Ca se 
presente comme une petite botte 
grise de laquelle sort un fil au bout 
duquel une prise DIN s'offre aux fes- 
ses talquees d'un minitel et en par- 
ticulier a son eventuelle prise peri- 
informatique. Une entree jack 
attend patiemment un transducteur, 
plus exactement un fil avec d'un 
cote une fiche jack male et de ('autre 
une petite botte ronde avec une ven- 
touse et dont le but est de detecter 
une sonnerie. Vous collez la ven- 
touse sur le telephone, si ca sonne, 
les electrons se bousculent comme 
des malades et hop ! voire Amstrad 
le salt. Le seul probleme c'est que 
votre telephone doit etre equipe 
d'une sonnerie classique electroma- 
gnetique. En somme, un true qui 
hurle a la mort comme un reveil 
matin. Avec les nouvelles sonneries 
qui susurrent "doubidoubidou", ca 
marche pas. Sur la bolte principale, 
on trouve un connecteur pour le bus 
a" extension de I'Amstrad. Une fois 
le tout branche comme il faut (la 
bofte sur I'Amstrad, le fil qui sort de 
la bohe sur le minitel et la ventouse 
sur le telephone), vous aurez alors 
a charger un logiciel qui ne ressem- 
blera en rien au point de vue presen- 
tation a celui que j'ai eu entre les 
mains. 
Mais ce n'est pas grave, chargeons 



quand meme ce qu'il y a charger. 
On trouve un programme de tele- 
chargement, un systeme de repon- 
deur, un serveur ( I) et un logiciel 
d'archivage. Commencons par le 
plus simple, I'archivage. On lance 
le programme, on compose le 
numero de telephone d'un serveur 
ou de Transpac. Sur I'ecran, un petit 
menu s'est affiche. Une fois qu'on 
est connecte, si on selectionne 
I'option capture, I'Amstrad charge 
en memoire tout ce qui lui arrive par 
la petite boite. Quand vous en avez 
marre, vous appuyez sur une tou- 
che (je sais pu laquelle) et la cap- 
ture s'arrete. Ensuite, vous donnez 
un nom a vos pages et vous les sau- 
vez sur disque. En phncipe, ce que 
vous sauvegardez s'affiche sur 
I'ecran du minitel et de I'Amstrad. 
Ce n'etait pas le cas dans notre ver- 
sion car elle etait sous CP/M. Je 
peux done vous dire que ca sauve 




bien, sans probleme mais j'ignore 
si ('emulation prend en compte cer- 
tains caracteres de contrdle relati- 
vement complexes (blocage clavier 
ou fulguration transcendentale du 
noyeau a centrifugeuse variee). 
Le repondeur est cense etre video- 
tex. Une fois le programme charge, 
vous avez le choix entre plusieurs 
options : lancer le repondeur, simu- 
ler en local, retourner au basic, 
creer des pages ou modifier des 
parametres. Bien sur, je me suis 
precipite sur la simulation en local 
puisque mon telephone, comme 
tous les telephones du journal, n'est 
pas a sonnerie electromagnetique. 



On lance le systeme en local et... 
ben non. Je peux pas vous dire ce 
qui se passe puisque je n'ai pas vu 
la version finale. C'est frustant. Je 
peux tout de meme vous donner la 
structure I des pages s'affichent, 
vous devez laisser vos coordonnees 
ainsi qu'un message du style de ce 
que vous laisseriez a un vrai repon- 
deur. C'est une notion interessante 
a laquelle seul le Telestrat avait 
songe, brave petit. 
La partie serveur ( I) est du meme 
ordre : pas d'extension du basic, en 
tout cas, rien de ce genre n'est 
prevu. II s'agit piutot d'un systeme 
a structure fixe et done pas tres mar- 
rant. En principe, vous pouvez tele- 
charger des logiciels, nous n'avons 
pas essaye, mais si on nous le dit, 
c'est que ca doit etre vrai. En tout 
cas, ca a I'air d'etre encore un plan 
a devenir chauve en moins de 
temps qu'il n'en faut a un agent des 
PTT pour augmenter votre tacture 
de 1000 balles. 

Ere, dans son infinie bonte, mettra 
a votre disposition lors de la sortie 
du produit un service, sur T3 bien 
sur, permettant de telecharger les 
versions mises a jour du produit et 
peut-etre, qui sait. d'autres logiciels. 
Enfin, je dis Ere, mais c'est sur le 
serveur de TF1 , le fameux TVINFO 
qui a humilie le videotex plus d'une 
fois avec ses concours a la noix et 
ses info nullardes. 
Le prix de la valisette devrait varier 
aux alentours de 400 balles pour la 
version Amstrad. On nous a promis 
une presentation coloree avec moul- 
tes graphismes et nouveautes. 
Sachez que ('Education Nationale 
est dans le coup et que quand elle 
est quelque part, d'habitude ca 
degage sec I Je vous en reparlerai 
quand le produit sera lance. 
Jagot et Leon (voila un nom qu'il est 
bien de chez nous I) est une societe 
(hens, a propos, j'ai une histoire ! 
Savez-vous pourquoi sur les pieces 
de monnaie des agents des PTT, 
d'un cote il y a une pince a epiler 
et de I'autre une gomme ? Parce 
que d'un cote ca est pile et de 
['autre ca est face. Epile, efface. 
C'est I'astuce. Oui, bon... d' accord. 
J'en ai d'autres) tres dynamique qui 
fait des tonnes de produits en par- 
ticulier pour Amstrad. Decidement, 
y en a que pour lui dans cette rubri- 



COMPATIBLE ? 



Decidement, les problemes 
de compatibility sont vrai- 
ment tres courants. On 
avail eu droit au CPC 664, lege- 
rement incompatible avec le 464. 



vous faites un poke concernant le 
chip sonore du C 64, et vous vous 
retrouvez avec un pate a I'ecran), 
genant. Bon, c'est pas tout, II y 
aussi une galere avec les hlstoires 




Ensuite ce fut le Spectrum 126 qui 
n'aimait pas trap son frangin, j'ai 
nomme le Spectrum, et mainte- 
nant c'est Commodore qui s'y met 
avec le C 1 28 qui a des problemes 
avec son benjamin le 64. Mais, 
Commodore ne fait jamais comme 
les petits copains, et c'est pour ca 
que le lecteur de disquettes 1 571 
est legerement incompatible avec 
le 1541 . Alors je vous raconte pas 
le martyre des possesseurs de C 
12BD. Laissez-moi vous expliquer 
ce qui se passe. Commencons par 
le commencement, que le 126 soil 
legerement incompatible avec le 
64 est facilement comprehensible 
(les deux becanes sont tres dtffe- 
rentes), et les mecs de Commo- 
dore ont reussi un beau tour de 
force puisque le 128 ne pose pas 
trop de problemes. Mais, il faut 
savoir que I'affectation de certai- 
nes cases memoires different en 
fonction de la becane : il arrive 
que des pokes du C 64 ne mer- 
chant par sur le 128 (par exemple 



de Rom pour version Qwerty et 
Azerty, ca commence a sentir le 
roussi I Mais, y a encore plus 
drole, comme je vous I'ai dit tout 
a I'heure. le 1571 ne marche pas 
vraiment comme il faut. Voila ce 
qui se passe : lorsqu'en emulation 
1541 il dolt charger un programme 
en fast load, il se met a faire du 
zele, et il se branche en mode 
rapide version 1571, et bien 
entendu il n'arrive plus a lire quoi 
que ce soil C'est fendard, non ? 
Imaginez la galere des posseseurs 
de C 128D, ils se ramassent une 
semi-compatibilite au niveau du 
hard et une semi-compatibilite au 
niveau du lecteur. Bon, c'est la 
zone, mais il parait qu'il est pos- 
sible de bidouiller, et d'obtenir une 
meilleure compatibilite, alors si 
vous etes I'heureux possesseur 
d'un (ou plus) de ces mysterieux 
secrets, faites-nous une petite let- 
tre. Les malheureux possesseurs 
de C 128 et C 128D vous remer- 
cient d'avance. 



que. Dans leur catalogue, on peut 
trouver un chouette logiciel de ser- 
veur, une chouette interface serie et 
un chouette cable Amstrad-Minitel. 
C'est super ( Quand vous saurez en 
plus que ca tourne egalement sur 
PCW, vous vous accrocherez au 
pinceau de peur que quelqu'un ne 
vous retire I'echelle. Inutile de vous 
preciser que tout ceci sera teste par 



votre iddle, le grand, I'innenarrable 
Escapeneufge I 

Pour I'heure, je me contenterai de 
vous saiuer bien bas et de vous pre- 
senter mes hommages retrecis et 
amicaux. 

Escapeneufge 



NOUVEAUTES S.E.H. % 



LECTEUR DE K7 



POUR 
AMSTRAD 




G COMPTEUR 

D FOURNI AVEC CABLE 

DE RACCORD 

AMSTRAD 



149F 



POUR LES MEMBRES 
DU CLUB HEBDOGICIEL 



DYSTAR DRIVE 




POUR APPLE IIC 
ET HE 



pour f yur 

LES MEMBRES DU 
CLUB HEBDOGICIEL 

□ LECTEUR DE DISQUETTES 
COMPATIBLE APPLE IIC ET 
HE (CABLE FOURNI). 

D SrXENCIEUX 

D GARANTIE 12 MOIS PIECES 
ET MAIN D'OEUVRE 



QUICK SHOT IX 




I33F 



POUR 

LES MEMBRES DU 

CLUB HEBDOGICIEL 



D BOULE DE CONTROLE A 

MICRO CONTACT 
□ TIR AUTOMATIQUE 
D CABLE DE RACCORD AUX 

NORMES ATARI. 



FONCTIONNE AVEC ATARI. COM- 
MODORE, SPECTRAVIDEO ET LES 
CONSOLES DE JEUX VIDEO. 
EGALEMENT AVEC AMSTRAD, 
SANS POSSIBILITE DUTILISER LE 
TIR AUTOMATIQUE Nl LES 
VOYANTS DE CONTROLE. 



BON DE COMMANDE A ENVOYER A S.E.H.,160 me Legendre, ZS017 PARIS. 



LECTEUR K7 : 199 F.D 
DYSTAR DRIVE : 990 F. □ 
QUICKSHOT IX 165 F.D 
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VELOCIPEDEULIGNE 




Hens, c'est bizarre, tout s'est bien passe la semaine 
derniere : pas de merde dans les deullgnes I Tout 
etait clair, nickel, bref, c'etait bon. Heureusement 
d'allleurs, slnon j'aurals organise un camaval de sou- 
tien des deuligneurs a la Bastille, moi. avec 100.000 
personnes, et tout et tout I 

Mais caimons-nous, et comrnencons par le commen- 
cement : quelques pokes d'enfer pour sauvegarder 
una image-ecran sur disque ou cassette. II sutfit de 
changer le numero de peripherique pour que ca aille 
ou on veut. 

Pour rappeler I'image, un simple LOAD"nom du des- 
sin",8,1 suffil Merci monsieur Fr6d6ric Brondel. 

Listing Commodore 64 

1 POKE193*000POKE194,4:POKE174.23 
PP0KE175.7 

2 SVS57812"I!0 HEBD0, SUPER !",8SV 
S62934 



Listing Thomson 2 : la demo 



6 CONSOLE'S: CLS: SCREEN?. 0, 01 PRINT "Demons t 
ration (c Fabrice 1986" : CONSOLEl : K = l :B* 
=INKEV$iHf="Pressez une touche" : FORT=0TO 
- 1 STEF0 : LOCrtTEl 1, 9, 0!COLORK:K=-<K + 1 >#<!<•, 
7)»PRINTA*tT*INKEY*<>""lNEXT»IHTERVfll.0Nt 
CLSlC0LORltL6CATEl,3lATTRBl.i:PRINT"HORL 
0GE INTERNE" 

1 LINE<0.36>-<:3£0,36>,£iBOX<3e,40>-<£60. 
70>,l: COU0R7: FORT=0TO-lSTEPQrT=STRIG' 0^0 
RINKEY*<> "":L0CATE6,7:PRINTUSING"#* Min 
## Sec"; IWT(.TIME/10)368, INT<:TIME-' t0>MOD6 
etMEXTl INTEPVrtLOFF: CONSOLE*: ATTRB8.0: LIS 



m ■ ■■ n ■ 

Encore Fabrics Belle!, encore deux softs de gagnes, 
encore Thomson, encore la demo en guise d'expli- 
cations, encore du genial, quoi. 

Listing Thomson : la fonction 

6 A$'0)="3601B76£0BB76£10308C££BF6e0C30S 
C24BF621 l"Oi?r3£BFt-£tiE3e>:C£0BF6213308C35fl 
F8C13308C55f>F8C0F39494E54455£564lCC54494 
OC500000000C04EC10££40C308CF57E£rtE?S0r;'68 
10125037E07F3308CE47E£B381F399DB£C1C3£71 
7C19t.£6EBBbt0198ft£0B?60l930SC14BF60£70F[> 
30FD4398E31£3BF 

1 A*(l) = "c.8£739DCD37EeC59BE6JD33001BF6iD 
3?EE330":CL$:SCREEN4,6,6iPRINT"Fonctions 
INTERVAL 8. TlflE"» , Cc) 1986 by Fabrice": 
PRINT: INPUT "Imp Ian tat ion i &H", X*:X=VAL< " 
&H" + H*):F0RT=1T0142JA=T>123:P0KE>:+T-1,VA 
LC'*« 1 H"+MI[>*.'.flJ<-A),T*£+A*£46-l,£^:NEXT: 
EXEC*:CLEAR,X-1 



Herve Hdritier (veinard I) reintroduit en force le Canon 
X-07 dans la rubrique, avec un deuligne permettant 
de transformer I'ordinateur en machine a ecrire, tout 
en evitant les l. PRINT. L 1 arret se fait par POKE 160, 
190: POKE 161, 193. 



Listing Canon X-07 

'Plaohios « ecrire Copyright MCrH-XXXUi 

HERITIER LYON 

1 POKE160,214:POKE161,2B6: ' Ctr I .K-LU,Ct 
r I. J-LF,R*turn-LF+CR,0{f-flRRET 

P.S. :-En pro9ramm*t ion, k'arrst se (oil 

par POKE 160,190:POKE 161,193 

DDDDDD 

Salut les p'tits loups, on se revolt la semaine pro- 
caine, hein ? Ou sur ma BAL du serveur de 
I'HHHHebdo (L-PIERRE, au (1) 36 15 91 77 puis MG). 
si vous prdferez. 



ABONNEZ-VOUS 
A HEBDOGICIEL 



^&S& 



A22 



ftt^ 



572 francs pour 52 numeroa achates chez votre 
marchand de Journaux. Dur, hein, 572 francs ? 
Faut les sortlr I 

Et si vous vous abonniez ? 450 francs au lieu de 572, 
ca marche ? Et un abonnement pour six mois vous 
coOtera seulement 230 francs. 

Si vous faltes partie du Club Hebdogiciel, vous avez i«—» 

gagne 10% de mieux. 405 francs pour un an et 207 jp^i 

francs pour 6 mois. Le bulletin est la, dessous, on se I^LvJ 

depeche. \lZz 5E> 



A renvoyer a HEBDOGICIEL, service Abonnement 
24 rue Baron 75017 PARIS 




ABONNEMENT 



Prenom : 



Adresse complete : 



Ordlnateur utilise : 

N* de carle obligatoire pour les membres du 
Club : 




France : 1 an : D 450 francs 
6 mole : D 230 francs 

Etranger : Ian : □ 530 francs 
6 mois : U 270 francs 

Membres du Club, dMulsez 

vous-memes les 10% soft : 

Reglement |olnt : 

D CCP 

D Cheque bancalre 




La fondation 
du Flexy d'Or. 
Un evenement 
BASF. 



Le concours Flexy d'Or BASF concerne tous les 
passionnes de la programmation qui aiment travailler 
sur un materiel de haute qualite, comme le FlexyDisk 
BASF. 

Le Flexy d'Or BASF, c'est deux prix de 30 000 F, 
couronnant la creation de logiciels dans deux domai- 
nes precis : 

• Gestion et Sciences. 

• Jeux et Education. 

Le jury, totalement independant de BASF, 
sera compose de professionnels de I'informatique, 
de journalistes et d'utilisateurs... 

Duree du concours : 
du 30 avril au 31 aout 86. 

BASF compte sur vous, 
pour conquerir 
brillamment le Flexy d'Or. 
Que les meilleurs gagnent. 




BASF 



16 



CLUB NUMCKHL 



REGLEMENT 

- L'achat des logiciels, des fourni- 
lures et des materials a prix petes 
est reserve aux membres du club 
Hebdogiciel. 



- Les petites annonces gratuites 
envoyees par les membres du 
club Hebdogiciel sont prioritaires. 

- Les membres du club Hebdogi- 
ciel beneticient d'une remise de 
10% sur t'abonnement annuel et 
semestriel a Hebdogiciel. 

- Les membres du club Hebdogi- 
ciel ont acces a tous les services 
du serveur minitel Hebdogiciel 
HG, y compris la section pirate et 
les bottes aux lettres (mise en ser- 
vice avril 86). 

- Les membres du club Hebdogi- 
ciel beneticient de tarifs reduits sur 
les badges, tee-shirts, casquettes 
et autres gadgets inutiles edites 
par Hebdogiciel. 

- Les membres du club Hebdogi- 
ciel recoivent une carte et un insi- 
gne gratuit lors de leur adhesion 
(a choisir parmi 9 modeles origi- 
naux de Carali). 

- Le club Hebdogiciel apportera 
son aide aux membres du club en 
cas de litige avec des vendeurs ou 
des revendeurs de materiel infor- 
matique. 

- Les membres du club Hebdogi- 
ciel disposent d'un numero de 
telephone direct oil une char- 
mante personne leur fournira tous 
les renseignemenls sur les activi- 
tes du club et sur les logiciels du 
soft-parade. 

- Un concours de pronostics 
reserve aux membres du club est 
organise chaque mois. Le premier 
prix est beau. Reglement en avril, 
surprise I 

- La cotisation annuelle pour 
I' adhesion au club Hebdogiciel est 
fixee a 150 francs. 

- La carte du club Hebdogiciel est 
strictement personnelle, elle ne 
peut etre vendue ou pretee. 

- Hebdogiciel se reserve le droit de 
refuser ('adhesion au club a qui 
bqn iui semble, non mais I 

- L'adheslon au club Hebdogiciel 
entraine I'acceptation du present 
reglement. 



SUPPORTS 


DSK 


DISOUE 1 1 1= 


K7 


CASSETTE 


CAR 


CARTOUCHE 


S 


SOFTCARD 



INDISPENSABLE 

RECOMMANDE 

BON 



PRIX TARIF 
PRIX ABONNE 
PRIX CLUB 



Un club 

pas comme ies autres ! 

Au lieu de se contenter 

de vous pomper 

150 francs et de partir 

aux Bahamas 

avec votre trie, 

on se decarcasse pour 

vous trouver 

les dernieres nouveautes 

a des prix que 

meme les enormes et 

gras grossistes, ils ont 

jamais vu 9a. 

Regardez le reglement, 

la, a cote, 

tout est explique. 




TEE-SHIRT 
HEBDOGICIEL 



MAINTENANT 

ON VOUS 

HABILLE 



B 



75F67F 



C 
52F 



BON DE COMMANDE A DECOUPER OU A RECOPIER : HEBDOGICIEL VPC : 24 rue Baron, 75017 PARIS 





TAILLE 


PRIX 


Quant. 


Montant 




SMALL 

MEDIUM 

LARGE 


















TOTAL : 
Participation aux trais de port : 






15,00F. 


Reglement joint : Cheque bancaire n CCP D Mandat poste (stranger) D 


MONTANT A PAYER : 





CHOISISSEZ UN BADGE 




ABC 



ABC 



ABC 



AMSTRAD 



ABC 



AM001 


* 


AMOCO 




amoo;i 




AMOM 




AMQOS 




moot 




AM00T 




AMOOH 




AMOW 




AU0PO 


** 



3D GRAND PRIX 
3D GRAND PRIX 
3D MEGACODE 




3D MEGACODE 

3D VOICE CHESS 
30 VOICE CHESS 



AFfAIRE VERA CRUZ 
AFFAIRE VERA CRUZ 
AIRWOLF 
AIRWOLF 



AMSCALC 
AMS CALC 
AMS FONCTtON 



iS GRAPH /STAT 



AUTOFORMATION ASSEMBLEUR 
AUTOFORMATION ASSEMBLEUR 
BACK TO THE FUTURE 
BACK TO THE FUTURE 
BAD MAX 

BAll BLAZER 

BARRY MAC GUKJAN BOXING 

BARRY MAC GUIGAN BOXING 

BATAILLE D'ANGLETERRE 

BATAHLE D'ANGLETERRE 

BATAILLE POUR MIDWAY 

BATTLE OF BRITAIN 

BATTLE OF BRITAIN 

BATMAN 

BEACH HEAD 

BEACH HEAD 

BOMB JACK 

BORED OF RINGS 



BORED OF RINGS 
BOULDER DASH III 



REVENDEURS : 

POUR VOUS PROCURER LES 
LOGICIELS DU CLUB 

CONTACTEZ STEPHANE CARRIE 
AU (1) 42 63 82 02 



BULLETIN D'ADHESION AU CLUB HEBDOGICIEL 

A renvoyer * HEBDOGICIEL, Service VPC, 24 rue Baron 75017 PARIS 
(ECRIRE EN LETTRES CAPITALES) 

Oui, j'adhere des deux mains et des deux pieds au club Hebdogiciel. J'ai pris connaissance du reglement et je vous envoie le mien 
(de reglement), soil 150 francs pour un an. Je recevrai ma carte d'adherent sous une semaine et je suis content. 

Je choisis le badge n° 



Reglement joint : Cheque bancaire D 

Norn 

Adresse 



Etranger : mandat-poste international uniquement D 
Prenom 



Ville Code Postal.. 



Signature : 

Attention, si vous commando* des logiciels. ulilisez le bon de commands au recto da celul-cl st (sites deux cheques 
mande de logiciels 



n pour l'adheslon au r'ib et un pour voire com- 



CA VIENT DE SORTIR 



AMSTRAO 




AM31B 




BATMAN 


AM320 


*** 


COLOSSUS CHESS 4.0/82&6 


AM321 




CYRUS CHESS/B256 


AM322 


# * 


DOCTOR WHO 


AM323 


* * 


DOCTOR WHO 


AM338 


* » * 


GUN FRIGHT 


AM324 


* * * 


HEAVY ON THE MAGICK 


AM325 




HEAVY ON THE MAGICK 


AM326 


* 


KNIGHT GAMES 


AM327 


* * 


L'AIGLE D'OR 


AM328 




L'AIGLE DOR 


AM329 


* 


MELTDOWN 


AM330 


« * 


RED HAWK 


AM331 


* ■» * 


REVERSI CHAMPION 


AM332 


* * * 


REVERSI CHAMPION 


AM333 


* 


WATERLOO 


AM334 




WATERLOO 


AM33S 


* * 


WINTER GAMES 


AM336 


* * 


WINTER GAMES 


AM339 


* 


WORLD CUP CARNIVAL 


AM340 


* 


WORLD CUP CARNIVAL 


AM337 


* * 


ZOIDS 


APPLE 






AP078 


* * * 


FOLIE MEURTIERE AU COLLEGE 


ATARI 8T 




STOW 


* * * 


TIME BANDIT 


COMMODORE 




C03B6 


» * 


BIGGIES 


C0372 


** 


DEVILS GALLERY 


C0373 


* * 


DEVILS GALLERY 


C0387 




FAIRLIGHT 


C0368 


*** 


RED HAWK 


C0369 


* ** 


RED HAWK 


CO370 


* * * 


WAY OF THE TIGER 


C0371 


*** 


WAY OF THE TIGER 


SPECTRUM 




SP247 


* 


BIGGLES 


SP248 


* * * 


THE PLANETS 



DSK 

DSK 
DSK 



AM063 

WHOM 

AMOS/ 
AMOie 



AMO64 
AM065 
AM0&6 



AM077 
AMD'S 
AMC79 



AM0H9 

AMO90 
AM091 





ABC 


BOUNTY BOB STRIKES BACK 


KT 


106 


to 


70 


BRIAN'S BLOODAXE 


K7 


IM 


M 


76 


BRUCE LEE 


DSK 


no 


w 


11 












W 


00 


TO 


CAULDRON 






130 


101 


CAVES Of DOOM 




30 


37 


20 


CHALLENGER REVERSI 




130 






CHALLENGER REVERSI 


OSK 


189 


170 


179 


CHUCK IE EGG II 


K7 




100 


BO 


COBRA PINBAll 


K7 


140 


136 




COBRA PINBALL 










COLOSSUS CHESS 4 


OSK 


IS5 


IS 


67 


COMBAT LYNX 






90 




COMMANDO 






9* 


CO 


COMPUTER HITS 6 


D3K 


IB? 


IM 


127 


COMPUTERS HITS 10 


KT 


Ill 


I0B 


as 


eESSE" " " 


£ 


« 
















CRAFTON ET X 1.1 UK 




390 






CRAZY GOLF 










CYRUS CHESS 






100 




CYRUS CHESS 


DSK 


its 




632 


DBASE! 


790 




DAMBUSTERS 


a 


112 
130 


'si 


7B 














309 


266 


206 


DARK STAR 


DSK 


395 


080 


277 
63 










BOM 




105 




DEFEND OR DIE 








59 


DEVIL'S CROWN 










DEVIL'S CROWN 


DSK 


169 


193 


104 


DEVPAC 




SOS 




IM 


DEVPAC 




360 


m 


757 


DIARY OF ADRIAN MOLE 






113 


85 






131 


100 


85 


DOOMSDAY BLUES 


DSK 


IB2 


IM 


127 


DOPPLEGRANGER 


K7 




82 


58 


DRAGON TORC OF AVALON 


K/ 


96 


M 


67 


DUNOARACH 




110 


101 




DUNDARACH 


DSK 


HI) 


126 




DUNGEON ADVENTURE 










DUO PACK FKJH EXLO 


DSK 


331 


300 


138 








130 


98 


EDEN BLUES 




770 


190 




ELECTRO FREDDY 




• IM 




72 


ELECTRO FREDDY 


OSK 


I4T 


133 


101 


ELIDON 






100 




ELITE 


K7 


155 


140 




ELITE 


DM 


IBS 


IM 




EMPIRE 




310 






EMP'HE 


DM 


no 


317 


217 


ESMERALD ISLE 




K 




59 


FANTASTIC VOYAGE 


DSK 


155 


HO 

03 


117 
58 


FIGHTER PILOT 


K7 






DSK 


170 


IS 


95 






93 


00 


69 






334 






FORTH 


DSK 








FRANK BRUNO'S BOXING 






n 




FRANK BRUNO'S BOXING 


DSK 


100 

130 


143 


106 
90 


FRANK IE GOES TO HOLLYWOOD 




131 


i« 


85 


GALA XI A 


KT 




oa 


-9 


GENESIS 




137 




88 


GESTE DART ILIAC 




39C 


341 


232 


GESTE OARTIUAC 


DSK 


M 


361 

ioe 


333 
85 


GET DEXTER 


KT 


111 


GET DEXTER 


nsK 


103 


143 


127 


GRAFPAD 3 


K7 




IJ47 


705 




OSK 


io; 


on 


761 


GYROSCOPE 




I3f 


1<X 




HACKER 




131 


109 


85 


HACKER 


DSK 








HARD HAT MAC 




ill 




90 


HARRIER STRIKE FORCE 






IOI 


85 


HARRIER STRIKE FORCE 


DSK 


too 


\K 


127 


HERBERT'S DUMMY RUN 




131 


IU* 


H 


HI- RISE 


"' 


in 


90 


68 



ABC 



AMI 30 


** 


H1-RISE 






HIGHWAY ENCOUNTER 


AM 130 




HIGHWAY ENCOUNTER 






HMS COBRA 


AM 133 




HMS COBRA 


AM 133 




HOLOUP 






HUNCHBACK II 


AM135 




HYPER5PORI 


AMI36 


1 * . 


HYPERSPORT 

IMPOSSIBLE MISSION 


AM 138 




INFERNAL RUNNER 


AM 139 




INFERNAL RUNNER 






JAMMINS 


AMI 41 




JET SET WIllY 


AMI 43 




JUGGERNAUT 


AM 143 




KIT PROGRAMMEUR 


AM 114 


** 


KNIGHTLORE 


441140 


* 


KONG STRIKES BACK 












LE SUR VI VAN! 


AMU8 




LOGO FRANCAIS 


AM 149 




LORDS OF MIDNIGHT 


AMI 30 




LORDS OF MIDNIGHT 


AMI 31 




LORDS OF THE RING 


AMI 33 




LORIGRAPH 


AMI53 




LORIGRAPH 


AMISS 


** 


MACADAM BUMPER 


AMP56 
AM157 
AMI58 


L 


MANDRAGORE 
MANDRAGORE 

MANIC MINER 


AM 159 




MARSPORT 


AM 160 




MARSPORT 


AM 161 




MASTER OF MAGIC 






MASTER OF THE LAMPS 


AMI 43 




MATCH POINT 


AMI 64 
AMF65 

AM 164 




MELBOURNE PACK 
METRO 3018 






MEURTRE A GRANDE VITESSE 






MEURTRE A GRANDE VITESSE 


AM149 




MEUTRES SUR L'ATLANTIQUE 


AMITO 




MEUTRES SUR L'ATLANTIQUE 


AM171 




MICROSCRABBLE 


AMI 73 




MICROSCRABBLE 






MIND SHADOW 






MINOSHADOW 


AM175 


:: 


MINIOFFICE 
MINIOFFICE 






MONTSEGUR 


AMI 73 




MOVIE 


AM 179 




MR WOWS LOOPY LAUNDRY 


AM1BO 




MULT1PLAN 


AM1B1 

AM1B3 


* * 


N.OM.A.D 

NEVER ENDING STORY 














AMI 03 




ONE MAN ANS HIS DROIDS 


AMIS6 

AMSOS 




PACIFIC 


AMIS7 




PACK FIVE 


AMISS 




PANZADROME 


AM 189 




PING PONG 


AMI90 


*** 


PING PONG 
PLANETE BASE 


AM 193 


** 


POUVOIR 


AM™ 


.. 


PROJECT FUTURE 








AMI 96 


* 


PUNCHY 


AM197 




PYJAMARAMA 


AM19S 
AM199 


t 


PYJAMARAMA 


AM 201 


i 


RA^BO 


AM 302 
AM 203 


, * , 


RASPUTINE 
RED ARROWS 






RED ARROWS 


AM205 




RED MOON 


AM 306 




ROCCO 


AM707 


** 


ROCKY HORROR SHOW 



DSK 


143 
110 


104 




DSK 




113 






ISC 


143 




DSK 


331 


310 






13C 


100 




K7 


110 


93 




OSK 


1ST 


Ml 




K7 


140 


126 




l 


':; 


103 
•7 
03 






m 


us 




XT 


112 


101 




K7 


10 


■9 




DSK 


238 


214 








ms 




DSK 
















DSK 


134 
194 


141 


; 


DSK 


240 


lit 






35H 


275 


: 


DSK 


250 
133 

190 


333 

100 
109 

113 
04 


3 


DSK 


VIS 




' 




ITS 


130 




OSK 


330 


315 




OSK 


330 


198 

040 












xT 


390 


360 

103 


3 


DSK 


159 


l«C 












DSK 


137 






K7 


139 


133 




K7 


104 


9. 




D5K 


490 
177 

133 


330 


3 


K7 


K 


37 




DSK 


3411 


306 


: 




140 


134 




DSK 


720 


190 




DSK 


IS7 






05* 


110 
113 


m 














135 




K7 


ISO 


163 


■ 


r 


300 

112 


101 

133 

96 
133 

103 


• 


K7 


109 


91 








00 




K7 


163 






DSK 


151 






K7 


87 


70 




K7 


97 


07 




OSK 


113 


163 





ABC 



ABC 



ABC 



AM235 
AM 726 
AM327 
AM33B 
AM 339 

AM 3 32 
AM 3 33 
AM334 

AM235 
AM 336 



SABRE WULF 
SCRABBLE 

SCRABBLE 
SEAS OF BLOOD 



SORCERY 
SORCERY 
SORCERY PLUS 
SORCERY PLUS 
SOULS OF DARCON 
SOULS OF DARCON 

SPACE MOVING 
SPACE MOVING 
SPACE SHUTTLE 
SPELLBOUND 
SPINDIZZY 
SPINDIZZY 
SPITFIRE 40 

SPY HUNTER 

SPY VS SPY 
SPY VS SPY II 

SPY VS SPY II 
SIAR STRIKE 

SI Aft ION 

SIEVE DAVIS SNOOKER 



SI RANGE LOOP 
STRANGE LOOP 
SUPERCHESS 



ItT 


91 
Ml 


." 




DM 


III 


109 






III 


in 






















IM 














OSK 


200 


ISO 

in 




OSK 


171 


1H 






106 








399 






DSK 


399 


300 


: 


E 


390 

111 


« 




DSK 


103 






OSK 


133 


140 
96 
99 








133 




DSK 




151 




K7 


100 


90 




DSK 


139 


140 






M 


73 






13) 








in 






DSK 


in 

90 


138 




K7 


01 





SUPPORTS 

DSK DISQUETTE 

K7 CASSETTE 

CAR CARTOUCHE 

S SOFTCARD 



AM3IB 


* 


SUPERCHESS 


AM341 




SUPER PIPELINE II 


AM143 




SUPER PIPELINE II 


AM343 


*# 


5UPER SILVER PACK 


AM34S 




SUPENPARVT 


AM344 






AM346 




TALES OF ARABIAN NIGHT 


AM147 




IANK BUSTER 


AMI lb 




TANK COMMANDER 


AM316 




TANK COMMANDER 


AM34B 






AM249 




TASCOPY 


AM230 




TASCOPY 


AM349 




TASSPRINT 


AM 250 




TASSPRIN1 






TASWORD FRANCAIS 


AM3S3 




TASWORD FRANCAIS 


AM1S3 


. ■* 


TASWORD 61 28 FRANCAIS 


AM194 






AM3SS 




TENNIS 30 








AM397 




TERROR MOUNOS 






TEXTOMAT 


AM2S9 




THE COVENANT 


AM340 




THE HOBBIT 






THE ILLUSTRATOR 


AM263 






AM363 




THE QUILL 


AM364 




THE CHJILL 


AM267 




THEATRE EUROPE ANGLAIS 


AM36S 




THEATRE EUROPE FRANCAIS 


AM366 




THEATRE EUROPE FRANCAI5 






THEY SOLD A MILLION 


AM349 




1HEY SOLD A MILLION 


AM370 




THEY SOLD A MILLION 3 


AM27I 




THEY SOLD A MILLION 3 


AM371 










TORNADO LOW LEVEL 






TORNADO LOW LEVEL 


AM375 




TRIPLE PACK 


AM303 


*# 


V 



DSK 


130 


tos 


i 


DSK 


134 


117 




K7 




137 




DSK 


395 


386 


9 


K7 


100 


oa 




K7 


85 


76 




K7 


108 


17 




OSK 


IS7 


141 


1 


K7 


129 


116 




K7 


130 


H7 






no 


ISO 






195 


170 




OSK 


310 


379 


7 


OSK 


350 


31S 

in 


a 




150 


130 


i 


DSK 


700 


in 




OSK 


450 


405 


3 




07 


TO 




K7 


165 


140 




K7 


334 


390 


1 


KT 


I9C 


171 


1 


OSK 


39- 


369 




OSK 


UK 










I'M 






32( 


191 




OSK 


116 


in 












131 


ioe 




DSK 








in 


9* 








09 












05K 


ISO 


in 





APPLE 



AP003 


# 




AF-003 






AFW4 




A 


AF>O05 




1 


AP004 






AP007 






APOOB 




A 


AP009 






E 


::. 



C 


AP019 




1 


ATOM 




1 


APQM 




1 


AP036 




1 


AP029 


** 


1 


APO'S 




1 


AK3T 


• 
















AP041 






AP042 






AP043 






AP044 




1 


AP046 






AP04B 




1 


AP049 


** 




AP050 






AP05I 




1 


E 


• 


t 


AP062 




! 


AP063 




1 


AP066 




! 


AP067 






AP066 




1 


AP069 






AFWO 


• 





ADVENTURE CONSTRUCTION 



ANGLAIS 3 
ANGLAIS 4 
ANGLAIS S 

A SI" HON II 

'STALE 
CAPTAIN GOODNIGHT 
CARMEN OF SAN DIEGO 
CHOPLIF1ER 
COLOSSUS CHESS 4 
CRIME DU PARKING 
0ALLA5 QUEST 



i il 1 1 1 COMPUTER PREOPLE 
MANDRAGORE 

THE GLOBE TROTTER 
MEME LES POMMES DE TERRE 

MOEBIUS 
MOVIE MAKER 



PORTEFEUILLE BOURS1ER 

BLAZER 
SKVFOX 
SPACE SHUTTLE 
SUMMER GAMES II 
TEMPLE D'APSHAI 
ULTIMA III 

GAMES 



700 


ISO 


140 


7M 


743 


90 


375 
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BALL BLAZER 

BEACH HEAD 
BEACH HEAD 
BLUE MAX 



BOULDESDASH II 



BOUNTY BOB 
BRUCE LEE 
BRUCE LEE 
CHOP SUEY 
CHOP SUEY 
COLOSSUS CHESS 
COMBAT LEADER 
0-BUG 
DBUG 
DECATHLON 
DECATHLON 



ELECTRA GLIDE 
ELEC1RA GLIDE 

ENCOUNTER 
F IS STRIKE EAGLE 
F IS STRIKE EAGLE 
FIGHTER PILOT 
FIGHTER PILOT 
FIVE A SIDE 



GHOSTBUSTERS 

GHOSTBUSTERS 

GOONIES 

GREMLINS 

HACKER 

HACKER 

HARD HAT MACK 

HARD HAT MACK 

JUMP JIT 

JUMP JET 



KENNEDY APPORACH 
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KNIGHTS OF THE DESERT 
KORONIS RIFT 
MEDIATOR 
MEDIATOR 
MERCENARY 



MK> ALLEY ACE 
MINER 3049 
MOON SHUTTLE 
MOON SHUTTLE 
NATO COMMANDER 
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PITFALL II 

PRINT SHOP 

REALM OF IMPOSSOBILITY 

RED MOON 

RESCUE OF FRACTALUS 



ROAD RACE 
SMASH HITS I 
SMASH Hi i s 2 
SMASH HIT5 3 

SMASH HITS 4 
SOCCER 
SOLO FLIGHT 
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SPIDERMAN 
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SUMMER GAMES 
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PRIX TARIF 
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PRIX CLUB 
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ALTERNATE REALITY THE CITY 
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ARK PANDORA 


CO0I7 




AXIS ASSASSIN 








COOt 9 




AZTEC 
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BARRY MAC CUIGAN BOXING 
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BATTLE DANGLETERRE 
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BATTLE FOR BRITAIN 
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BORROWED TIME 
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QUICKSHOT II 



Le baton de joie le plus 

vendu dans le monde. 

Plus de 4 millions 

d'adeptes ! 



85 



B 



76 




BON DE COMMANDE A DECOUPER OU A RECOPIER : HEBDOGICIEL VPC, 24 RUE BARON, 75017 PARIS 

D6terminez vous-meme le prix auquel vous avez droit. Colonne C pour les membres du club. Colonne B pour les abonnes. Colonne A pour les visiteurs. 



I 

Nom Prenom . 

I Adresse 

Ville Code postal 

I N°telephone. : 



Date de la commande : 
' Les cheques recus ne seront encaisses qu'apres la livraison des materials commandes. 
■ Cheque renvoye en cas de rupture de stock. 



Log. 



AMERICAN ROAD 



Ord. 



Support 



Tarif 



Prix 



Quant. 



| Tarif C ; N° de carte de club obligatoire : 
Tarif B : N° d'abonne obligatoire. : 



i Reglement joint : Cheque bancaire D CCP □ Etranger : Mandat poste international D 



ECRIVEZ LA REFERENCE, 

ET LE NOM DE L'OROINATEUR 

EN ENTIER 



TOTAL : 

Participation aux frais de port : 

MONTANT A PAYER : 



15,00. 
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COOM 
CO072 i 
COOTS i 

coon i 

COOT* 
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COW 

coiaa i 

C0123 • 
C0364 

C036S • 

cot:* i 
cot as -. 

C0363 



COI28 
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cor/i 
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COI71 
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com 
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COIM 
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90ULDERDASH 

■OWWNMW it 

9OUL0ERDASH III 

BOUND** 

BOUNDER 

BOUNTY KM 
BOUNTY BOB 
BOZOS NIGHT OUT 
BREAK DANCE 

MIAN JACKS SUPERSTAR 
IRIAN JACKS SUPERSTAB 



PUCE LI 



BURNING RUBIER 
CARIOUCHt MEGAMEM SO KO 



chopliftir 
choplifter 
colossus ches5 4 
coiossus chess 4 
comiat leader 
comiat lynx 
comic bakery 

COMiWANDO 
COMMANDO 
COMPUTER HITS 10 
COMPUTER "ITS 10 
COMPUTER HITS 10 II 
COMPUTER HITS 6 
a SWAN 
COSMIC BOUNCE 

MM 

DAUAS QUEST 

DAM BUSTERS 

DAMIUSTERS 

DAVID'S MIDNIGHT MAGIC 

DECATHLON 

DECATHLON 

DIARY OF ADRIAN MOLE 

DIG DUG 

DONALD DUCK 

DONALD DUCK 

OR WHO 

DR WHO 

DUNOARACH 

DUNGEON ADVENTURE 

[KXXON 

EIDOLON 

ELECTRA GLIDE 

EUDON 

ELIDON 

ELITE 

ELITE 

ENIGMA FORCE 

EXTRA TOOL 

EXTRA TOOL 

FAIRIKJHT 

FAST LOAD CARTOUCHE 
FIOHT NIGHT 
FIGHT NIGHT 
FIGHTER PllOt 
FIGHTER PILOT 
FIGHTING WARRIOR 
FIONA mots OUT 
FIVE A SIDE FOOTBALL 
FLIGHT SIMULATOR II 

FRANK UMNO'S BOXING 

FRANK BRUNO'S BOXING 

FRANKIE GOES HOLLYWOOD 

FRANKIE GOES HOLLYWOOD 

FRIDAY THE II TH 

FRIDAY THE I3TH 

GAME MAKER 

GENESIS 

GHETTO BLASTER 

GHOSBUSTER 

GHOSBUSTER 

GOLF CONSTRUCTION SET 

GOLF CONSTRUCTION SET 



GOONKS 
GREEN BERET 
GROGGS REVENGE 



GYROSCOPE 

H.E.B.0 
HACKER 



HARD HAT MACK 
HARD HAT MACK 
HERBERTS DUMMY RUN 
HUNCHBACK II 
HYPER BIKE* 
IMPOSSIBLE MISSION 
IMPOSSIBLE MISSION 
INDIANA JONES 



INTERNATIONAL SOCCER 



KARATEKA 
KENNEDY APPROACH 
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KORONII RIFT 
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MASTER OF THE LAMP 

MATCH POINT 
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OMEGA PI ANE IE INVISIBLE 
OMEGA PLANE IE INVISIBLE 
ON COURT TENNIS 

ON ONE 
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OPERATION CYBORG 
OPERATION WHIRLWIND 
OPERATION WHIRLWIND 
OUTLAWS 
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Amstrad 6126 <res recent, recherche contacts 
sur Paris 01 region parislenne exclusive-men t. 
Andre Fava, 63, rua C. Gonneau. 77140 
Nemours 

VENDS Amstrad CPC 6128 monrteur moooch- 
roma. joystick, "Cles pour Amstrad" 2 votumee, 
La Uvre du CPM. Auto-tormarjon a f Assam- 
bleur. 5 disquettes vlergee, una disquette jeux. 
Orphee (disk), Pinball at Ping Pong (K7). le tout 
4000F. Intartaca Peritel Amstrad : 3S0F. Patrick 
au (1) 34 74 65 61 a partlr de 19h. 

VENDS imprimante Amstrad 0MP1 avec 
manual at ruban encreur neuf, K7 d'origine, 
Amlettre. Scriptor, Suparcopy : 1300F. Mr Robi- 
net, St-Martm. 32300 Miranda. Tel. (16) 62 66 



VENDS Arm House : 450F. vends aussl Micro 
Application n't et 9 et Amstrad Premiers Pro- 
grammes : 50F cheque Ml. (t) 47 90 25 65. 
ECHANGE SgoSE aur CPC 464 (K7) contra 
magazines anglais recants tsls ova CPC Users, 
ou autree. Cherche ausal Zaxx ou Goliath. Trc- 
queurs a plumes, envoyez vos Males a Alain 
Dubuls. 143. rue feHx-Pyat, Bat D22. 13003 Mar 
seille. Tel. (16)91 02 12 83. 

Club Amstrad Sud Manche, propose acttvflAe 
divereee maia eArieuaee sur CPC 464, drive 664 
et 8126. (prograinmation. Initiation a CP/M, 
btdouWes et aatuoaa...). Ecrire au Club Amstrad 
sud Manche, 19, rua du Commandant Ckxiard. 
50150 Sourdeval. 

CHERCHE contactj pour Achange togfcktls sur 
Amstrad en K7. Uste sur damande Pascal Gal- 
lia, 80, rue Jean Racine. 78180 Mont.gny-le-8tx. 

Cherche Super Paint. Lorigraph et Master Save. 
Echange nombreux kjgielets. Vincent Ladoux an 

(1)43 64 43 15. 

VENDS CPC 464 couleur avec lecteur de dis- 
quettes DDL Tree boo etat. sous garantie. 
Hoosse, joystick, programmes aur K7 at disquet- 
tes. Le tout 5400F. Tel. (1) 46 66 87 13 apres 
IBh. 

VENDS causa depart (NOUC :Ohl Tu fan 
vita 7) Amstrad 464 couleur, monlteur, lecteur 
3 pouoea, Ourckahot II, nombreux ieux aur dis 
queues. Stephen Dsachampe au (1) 43 38 44 
86. (NDiJC : Oaaotaa pour fa faufe de frapp* 
de la dernier* lots, to conactauaaftrice) a rien 
vul) 
CHERCHE correspondents Amatrad 61 26. pour 



da nombreux jeux benott Lyeune, 2, rue Henri 
Lacocq, 5000 Namur, Belgiquo 



ECHANGE 10 i 
breux jeux et utJrtalrea, contra imprimante 
DMP2000 ou superieure. lisle sur demande. D 
VHani, lieu-dit "lee ChalHes", 25670 Tsllenay 
par Qanaville. 

VENDS Amstrad 464 CPC, un Joystick, Trues 
et Aatuces CPC 464, Micro Application, nom- 
breux listings, nombreux programmes origi 
naux, le tout 4900F a debattre. Charles- He rve 
Rtcourau (16) 41 66 00 34. 



CHERCHE contacts pour echange de program- 
mee aur Apple lie. Tel (1) 45 51 24 19 deman- 
darMarc. 

SI vous cherchez dsa faux paa chare OU Iff cor- 
reapondanl valabie but Apple lie. tMphonez au 
(16) 73 61 42 47, demandez Sam le Terrible. 
Cause double empkH vends carte 80 coionnea, 
carte imprimanie, cable ; 150OF. Gaby au (16) 
28 78 10 81. 

VENDS Apple lie, lecteur disk, monlteur, Joys- 
tick, carte 280. nombreux logtciels ; 6200F. Tel. 
(18)76 47 10 48. 



VENDS 6990F . Atari 520ST monochrome avec 
cordon couleur, basic, logo, St Texts. K Spread, 
Hippo Simple. Sundog. Db Master. Print Mas- 
ter, Bratacca, etc., pour cause double emploi 
Philippe Descotte, les Ouplex-du-Parc, 78, alxki 
Gulllaume-Appolinalre, S3270 Sevran. 



COMMODORE 

ECHANGE programme C64 contra programmes 
C64. Apple, Spectrum, Atari. Mr Dupont, Neu 
ville les Bois. 28270 BrezoHes. 



sur CBM64. reponse assun 
de Cassel, 59200 Tourcoing. 
ACHETEkX/iciete aur CommooYjre 64, el de pre- 
ferences des nouveaux A baa prix. Cherche 
aussi lazst Load Cartridge d'Epyx. Toujours et 
encore a bM prix. reponse aa aurAa. Isurent Sie- 
gel. 26, Grande-rue Still. 87190 Mutzig (En pas- 
sant je pasae le bonjour au* Peana de Prance, 
les concemea se sentironl vises I ? I) Et aalut 
a ceux de la 4A !. 



VENDS Commodore 128 AZERTY, drive 1541 , 
monlteur 1901, imprimanie Ml '803. K7 1531 : 
8000F. Tel. (1)43 55 77 81. 


VENDS CBM64, drive 1541 lecteur K7, nom- 
breux togKwte xwx et ulHrtaires « livres : M00F 
Ecrire a Frederic Pommaret. 7, rue des Acacias, 
60690 Trie-Chateau. 



VENDS Commodore 64 etat neuf avec magneto 
K7 1 530, joystick Outckshot II, cartouche Radar 
Megamem avec Turbo Tape et nombreux pro- 
grammes (jeux et utllltaires), autolormallon au 
basic, Initiation au basic, Irvres : 22S0F. Vends 
aussi monrleur monochrome vert. Philips TP200 
etat neuf (40780 coionnea) : BOOF. Lionel Jar dan, 
80. rue Damremont, 75018 Paris, lei (1) 42 55 
50 06, le dlmanche ou le soir de 19h a 21 h. 
VENDS pour CBM64, unite de disquettes en 
tree bon etat avec nombreux logiciels, un llvra 
sur I'assembleur, entre 2500 et 3000F Raphael 
Rlloux, 14 bis, route de Conches, 27930 Evreux. 
Tel. (16)32 39 42 67. 

ECHANGE jeux pour C64 sur K7 uniquement ? 
Possede nombrauses nouveautAa. Fabrics 
Cary, 75019 Paris, au (1) 42 08 35 15. 



VENDS CBM64, monlteur vert, lecteur K7. nom- 
breux logiciels de Jeux, gestion, traltement de 
texte, musique. desain, docs. 2 joysticks. 2 
anceinles : 45200F a debattre Tel. (1) 42 22 56 
47. 

ECHANGE pour C6M64 divers jeux. Tel. (16) 
57 51 63 10. 

VENDS CBM64 neuf cause double emploi, 
i53i, nombreux jeux et utllltaires, nombreux 
programmes de musique, 25 HHHHebdos, joys- 
tick, le tout 350OI- lei. (1) 48 99 33 17. Mr 
Anguita, 46, rue Cheret, 94000 CreMII. 
VENDS ensemble Commodore compose d'un 
128 AZERTY7QWERTY, d'un moniteur 1901, 
d'un lecteur de disquettes 1541, d'une impri- 
mante MPS803, dun lecteur enreglstreur de K7 
1531, logtciel Vlrgule Senior, Music Studio, 
materiel sous garantie, le lout 80001V Impri- 
mante Hengstler, Gemini l5Xet interlace Com- 
modore 64 : 400OF. Tel. (1) 43 55 77 81. 
ECHANGE programmes pour Commodore 64 
avec drive. Possede nombreux programmes 
dont supers nouveautAa. Ftorent Legeron, 11, 
rue Frederic-Jegat, 56610 Arradon. 

RECHERCHE pour 4000 ou 4500F, C64, 
C1541 , C iMO, programmes sur K7 ou disk, en 
option, moniteur couleur. Tel. (16) 27 86 29 00 
aprea 17h30. 



VENDS logiciels origlnaux pour MSX aur K7 : 
Harvey Smith Showjumper : 70F. Disc Warrior 
40F. Pastfinder : 50F, Maatarvoice : lOOf , Blag- 
ger : SOF, Jet Fighter : 100F, Stop ihe Express : 
40F;, Mutant Monty : 60F, Buster Block : 80F. 
Musix : 80F. Return to Eden : SOF. Night 
Shade : 70F, Choroq (aoftcard) : BOF, Gun- 
fright : 70F. Sorcery : 50F. cartouchaa : Knight 
mare : 160F, Computer Bilierd ; 120F. Creative 
Graphics : 220F, Print lab : 2S0F. Yannick Gal- 
lois. 2 bis, residence de la plante des Roches, 
91120 Vlllebon aur Yvette. Tei. (1) 60 10 15 63 
tous les tours aprea 1 9h. 
ECHANGE logiciels pour MSX. Eric Goudeau 
au (16) 49 24 76 32 ou ecrire au 1 1 , rue Albert- 
Camus, 79000 Niort 

VENDS 2 MSX YC 64K, moniteur couleru 
Eureka, lecteur de disquettes PhHipee 360Ko 
3,5". magneto, nombreux logiciels sur disk et 
K7 : 6000F a debattre Dominique Wdjcik, 17. 
rue de Mme Marchand. 59147 Gondecourt. tel. 
(16)20 32 44 51. 



EXELVISION 

VENOS EXL100, clavier pro, modem, CRAM, 
magneto, interface RS232, jeux sur cartouches 
(Wyzord, Capt Menkar, Tennis, Imagix), jeux sur 
K7 origlnaux (Tout Ankh Amon, Musical, Meur- 
tre a grande Vitesse), utilrtaires (Fltent, Arcade), 
Irvre Maitrisez voire EXL100, abonnement Exel- 
ment Votre : 5500F. En cadeau 6K7 de pro- 
grammes. Frederic Biron, 7, place de la Gare, 
93250 Villemomble. tel. (1) 46 54 15 43 avant 
9h (le matin). 

VENDS EXL100 en hyper, super etat, compre- 
nant : clavier, manettes A Infrarouge, moniteur 
vert, magneto K7, exelmemoire (sort 40Ko 
extensibles). cartouches Tennis, Imagix, CBS, 
Cube intormatique, livre 25 programmes, revues 
Exelment voire : 3000F a 400OF. En plus, don 
d'un Atari 2600 avec 4 cartouches a tout ache- 
tour. Profttez-en. Philippe Quere, 3, rue de 
Goaaar-Vrarvpadu. 22200 Quimper. Tel. (16) 96 
43 68 79. 

VENDS EXL10O Tel. (16) 76 47 10 48. 
VENDS pour EXL100 cartouche Rom Tennis en 
3D : 20OF. Vends aussi K7 programmes avec 
notices : 100F. Domnique Ceplaul, 12/13 allee 
d'Aulnay, 93150 Blanc-Mesnll. Tel. (1) 46 67 70 



ECHANGE tout programme aur K7 pour MSX 
ou one Atmot. Vends programmes Budget fami- 
lial pour MSX : 100F. Jose Walloia, residence 
Flandes. 245 rue Marinot, 62100 Calais. 

VENDS MSX Sony 501 F. synthe Yamaha, con- 
necteur MSX, clavier yamaha. 2 cartouches 
Yamaha (FM Mualc Macro, FM Voicing 
Programl), manuals. 3 joysticks (1 Sony, 1 
Speedking, 1 Hypershot), nombreux logiciels, 
prix a debattre ou echange centre un Apple lie 
avec unite centrals, moniteur, lecteur de dis- 
quettes, joystick, dans la regions d' Amiens 
Jeremy au 22 52 10 15 ou Yves au 22 52 00 58. 
VENDS MSX DPC avec documentation com- 
plete, 3 cartouches jeux, le tout 950F. Patrick 

au (1) 34 74 65 61 a partlr de 19h. 

ECHANGE logiciels pour MSX en possede de 
nombreux. Cherche egaiement les jeux sui- 
vants : A View to a KB. Eggerland Mystery, Pay- 
loard. La Geete d'Artillac, Graphic master, Mas- 
ter Voice, Kniglitmare. The Way of the Tiger. 
Chopiifter. Choroq, Red Moon, Hyper Sport3. 
Macadam Bumper, Musix, Print Lab, Ole, The 
Wreck, Harvey Smith's, Show Jumper, Bridge, 
Backgammon et la none* de Battle For Midway. 
Contactor Herve Sinka, IB, rue du Mail. 60140 
Llancourt. 



VENDS ZX Spectrum 48Ko avec interface peri- 
tel et en prime programme Kamikaze. Le lout : 
1500F. (K7 el manuals d' utilisation compris). 
Tel (16) 41 42 44 09 aprea IBh. 
VENDS ZX Spectrum 48K, Interface peritel. 
moniteur, cordons, lecteur K7 Philips, 1 1 livres, 
2 jau is- parlours annexes, et nombreux jeux : 
2S00F a debattre Martin Le Gendre au (1) 46 
37 03 74. 

VENDS Speclrum 4BK, peritel, magneto, jeux, 
livres, le tout 800F. Tel. (1) 42 23 30 65 avant 

ECHANGE, achate, programmes en lout genre 
pour ZX Spectrum 4BK j prix competitits. Cher- 
che bMoulMes et grenouWea pour ma becane qui 
s'ennuie. Eric Bourguedieu, 40560 Vielle SI 
Girons. Tel. (16) 58 42 91 BO apres I8h 



VENDS Texas instrument TI99/4A peritel, basic 
etendu. manette, magneto : 1500F a debattre 
Emmanuel au (1) 66 30 03 96. 



VENDS Ti99/4A bon etat. cordon, magneto, 3 
livres de programmes, nombreux programmes 
sur K7, 2 joysticks, modules : Music Maker, 
Super Demon Attack, Cerwars, Parsec, Moons- 
weeper, Munchman, le tout 2200F. Cedric au 
(1) 47 47 90 28 le soir. 

VENDS pour TI99/4A, mlnlmemoire etat neuf : 
500F, Interface RS232 : 550F, interlace paral- 
lel Centronics : 600F. Tel. (1) 45 85 65 19. 
VENDS TI99/4A, magneto Lansay, cable 
magneto, manettee de jeu Texas USA, basic 
etendu. 2 cartouches parsec et Adventure, K7 
basic par sot-meme. lea n°1 et 2 de 99 maga- 
zine et en cadeau de nombreux programmes en 
basic simple et etendu. Excellent etat, le lot 
1900F. Stephana Bocquillon, 165. rue JP Tim- 
baud, 92400 Courbevoie. Tel. (1) 47 86 78 62 
apres IBh. 

VENDS Tr99MA. basic etendu, Logo, 3 cartou- 
ches de Jeux, joystick, nombreux jeux sur K7, 
cordon magneto, le tout 20001 Tel. (16) 20 76 
63 68. 



VENDS pour Oric/Atmos interface programma- 
ble pour poignees de Jeux : 250F. Patrick au (1) 
34 74 65 61 a partlr de IBh. 
VENDS OricAtmos del2«5. lecteur dedtsquet- 
tes Jasmin II de 02/86, 10 disquettes de logi- 
ciels. 5 K7 de jeux, documentations diverses : 
2600F. Asslmil Anglais et Espagnol : 350F les 
2. Andre Fava, 63, rue C. Gonneau, 77140 
Nemours. 



ACHETE uniquement, unite centraie T199/4A. 
ecrire a Stephane Micharski. 37, rue Hyacinthe 
Come, 59500 Doual. 

VENDS TI99/4A, interface p*rltel, cable 
magneto, basic etendu, manuels en francals, 
Defender, Retour du Pirate, Solar System, inter- 
face joystick Atari, programmes basic simple et 
etendu, 99 magazine i a 4 1700F. Tel. (16)43 
06 54 59. 



ECHANGE adaptateur peritel PHS60 universal 


contra la cartouche basic etendu pour Texas 


TI99/4A ou le vends 250F 


Iredertc baranger, 


Ctta du Clapier a Vllkttte, 


7B930 Guerville. 



VENDS TWB/4A, t 



VENDS ZX Spectrum * peritel, manual d'utili- 
sation, tivre, lecteur de K7, Interface Kempeton 
Joystick, Joystick, nombreux logiciels : 16BOF ou 
vends softs St a 40F piece (origlnaux). Natha- 
lie au (1)42 05 11 11. 

VENDS ZX Spectrum 4BK. peritel, le tout 1000F. 
Patrick au (1) 47 22 02 43 apres I7h. 
VENDS pour Spectrum, interface, microdrive, 
manuel d 'utilisation, mlcrocassette de demons- 
tration, le livre ZX Spectrum el see mlcrodrives. 
Le tout en excellent etat pour 1300F, Xavler 
Tardy, 11, rue Ampere, 21000 Dijon. Tel. (16) 
B0 71 19 75. 



VENDS T»9/4A. I 

de jeu, 4 jeux, docs : B90F. P. Vassal, 5. rue de 

Normandle. 59370 Mons-en Baceul. Ml. (16) 20 

04 04 56. 

VENDS Ti 9B/4A annee 1963 unite centraie, 
peritel, magneto. K7 avec cable, manettes de 
jeu, basic etendue. 3 numeros de 99 magazine. 
Pratique du TI99/4A, K7 (Solar system. Summer 
games...) le tout dans embaHea d'origine avec 
n)425870e- 






ntpio! : 3000F. Tel. (16) 4 



VENDS MSX Sony H-B 75F, lecteur de K7, 2 
livree. K7 Macadam Bumper, Print, Lab, Allen 
8, Xyzoiog, Hyper Sports 1, Coamo, Exploreur, 
Pastfinder, Graphisto (orkjinaux), le tout 1500F. 
T«. (1)47 08 14 19. 



CHERCHE contact pour echange de program- 
mes aur Spectrum. P oses de nombreux tagtcWa mT (16) 43 24 18 75 
et nouveautea. Recherche Interface ZX3. Jean- 
Michel Martin. 8, rue Alfred de Mussel. 06150 
Cannes la Bocca. 



VENDS pour TI99/4A KM 7 Sorciers : 50F, La 
MallrJJctton de KouWi : SOF (origlnaux). cherche 
module jeux contra logiciels sur K7. Nicolas 
Viennei. 13, rue Saint-Simon, 72000 Le Mane. 



TV CQttiM i-A 
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VENDS pour Tt99/4A aymtMtUseur de parole : 
500F. Module basic etendu : 750F, les deux 
vendus avec manuel en francais. Xavier 
Tschambser, Fontame-Macon. 10400 Nogent 
sur Seine. 

CHERCHE solution de Return to Pirate's Isle". 
Ca serait sympa de I'envoyer, si vous I'avez a 
Mathieu Wltz, 5, rue Chopin, 54000 Nancy. 
VENDS pour TI9B/4A, Multiptan Microsoft : 
500F, module Terminal Emulator : 4O0F, 
module Gestion Privee : 2O0F. achange possi 
BH contre dtaquensn Rchisr d adraeae et synthe- 
tkwur vocal. Tel. (1) 43 65 08 33 heuree bureau, 
k*eorrau(l)45 68 78 02. 

VENDS TI99/4A avec prise peritel, cable 



2S0OF. Nicolas Traquet au (1) 43 26 13 94. 
VENDS rm/AA peritel et UHF, cable magneto, 
basic etendu axvec manuel, mini memorie avec 
manuel, extension 32K, manette, modules dont 
Echec, Othello. Parsec, Munchmann, Ti Inva- 
ders..., B K7 dont le Basic par sot-meme, Lunar 
Lander, Lunar Jumper, Irvres : 98 magazines du 
n s 1 a 10, Jeux et programmes pour Ti99/4A 
tome 1 . 2 et 3, Grand ctasalque du jeu pour Ti 
et 30 numeros de I'HHHHebdo : 4000F le tout. 
Mr Langeard au (1) 39 78 41 64 apres 18h ou 
le week-end. 



MSX 

Stop I Donne 70 jeux sur drive, 40 en K7 con- 
tre tout inprimante en bon etat general, 60 con- 
tra un Catt Ball. B0 contra tout MSX 64KO en 
bon etat, poseede Croat Patem MSX2, cherche 
tout cfxrespondant pour echange. Dominique 
Wojctk, 17, rue de Mme Marchand, 59147 Gon- 
decourt. tel. (16)20 32 44 51. 
VENDS MSX Canon V20. lecteur disquettes 
Canon VF100, magneto, livres, nombreux logi- 
ciels, ensemble ou au detail, a debattre. Chris- 
tan au (1) 69 07 55 71. (Lee Ulis) 
VENDS logiciels origlnaux ; Hero : 80F, River 
Raid : SOF, Konami's Tennis : 150F (etat neuf). 
De plus, cherche contacts pour ©changes de 
logiciels et d'kMes. Cherche aussi camarade (ou 
plusieurs) pour prats de logiciels lets que Allen 
B, Knight Lore, master of The Lamps, Zaxxon, 
Decathlon, Pyra Man, en echange d'autres. 
Contacter Emmanuel Houze, 12, rue Camilla 
Corot, 59120 Loos. tel. (18) 20 07 61 08 apres 

19h. 

ECHANGE, achate logiciels MSX. Ludovic Poi- 
ret, 28. place Leckxc. 62130 St Pol sur Temaise. 

Tel. (16) 21 03 02 09. [ 

VENDS MSX Sanyo PHC2B5. 2 cartouches 
(Hyper Sport 1 et 2), livre initiation assembleur 
saenfie : 700F. Stephane au (1) 47 71 08 72. 
CHERCHE correspondents pour MSX pour 
echange de jeux ou utHitaires, POesede de nom- 
breux jeux (Galeae, Bosconian, Macadam Bum- 
per, Alien 8, Flight Deck, etc.) Tel. (1) 30 93 71 
03, demander Emmanuel entre I9h et 20h30. 
ECHANGE programmes MSX. ecrire Guyiain 
Delhaye. 260, rue de Brulelette, 80132 Drucat. 
Tel. (18)22 24 30 87. 



VENDS Spectrum 46K avec peritel, livres, nom- 
breux logiciels, le tout dans embnllage d'ori- 
gine : 900F. Pierre au (1) 48 83 98 69. 
RECHERCHE les logiciels suivants. conlre 
d'autres logiciels pour Spectrum : Mind Sha- 
dow, Spy us Spy, Strageloop, Web Dimension. 
Realm of Impossibility, Swords and Sorcery, 
Highway Encounter, Bulderdash III, The Way ot 
the Tiger. Spellbound, Novice, Lord of the Ring. 
Amaud au (1) 43 24 14 96. (NOUC : U pro 
chaino lois que t'snvoMs una annonce ecris 
mbvx ftca .' Pare* qua bonfour la galira. C'qua 
c'dtait mal sk-nt . ) 

VENDS Speclrum 4BK, magneto, manette, 
interlace ZX2, nombreux jeux, 2 livres, interface 
peritet, le tout 1900F Thierry au (16) 91 66 39 
42 le soir 20h. 

Toi qui a un Spectrum, ca te brancherais d'avoir 
des periphs ou meme un Amstrad, comme ca, 
gratuitement 7 (ou presque) Alois n'heslte pas 
A m'appeier au (16) 78 35 53 30, tous les Jours 
apres 18h30. 

VENDS Speclrum ZX, neuf. 2 interfaces nc-ir et 
Mane, Jeux (ZX Interface 2), joystick, 9 livres, 
nombreux jeux : 1500F. Tel. (16) 70 07 62 32. 
VENDS pour ZX Spectrum Interface ZX2 
neuve ; 200F. Echange Jet pac, Past, Cookie, 
Booty Stop the Expraaa, Paytron, Hobbit, 
Pedro... contre Alien 8, lie Maudrte, jaws. Knight 
Lore, Manoir du Dr Genius, Panlque, Winter 
Sport, Zaxxon. Demander Nicolas au (18) 7761 
08 94 apres I8h. 

RECHERCHE possesseur de Spectrum pour 
echange de jeux. Olivier Pavard, Bazalnvllle, 
Greneville-en-Beauce, 45460 Outarvllle. 



THOMSON 

VENDS Thomson MOS, lecteur, ewegkUreur de 
K7, crayon optique, manettes de jeux, contro- 
leur pour manettes de jeux. 4 jeux ; Airbus. 
Karate. Pictor, Mandragore et de nombreux jeux 
pour MOS : 2S00F. Tel. (16) 42 71 73 86 apres 
I9h. 

VENDS gammes complete de kxgicteta origlnaux 
utilrtaires tamiiiais, et eemi-profeesionneis. Prix 
derisoir. lists et descriptits sur demande. Olivier 
au (16) 21 62 61 57. 

VENDS TO7/70, lecteur de K7, clavier mecani- 
que, conlrftieur manettes et eon, une manette, 
5 jeux. nombreux Irvres : 4000F a debattre. Jen- 
nifer au (1) 43 77 53 18 en semaine acres 16h30 
(pas le week-end). 

VENDS M05, lecteur K7, crayon poptlque, 
Megabus, Prolongateur de bus, Quickshot II, 
livres de programmes, docs, nombreux pro- 
grammes de I'HHHebdo et autree sur K7 : 
3500F. Gerald Chaussiere, 1 7, rue du Trtmolln, 
Si Andeol, 69700 Gluora. Tel. (16) 78 B1 27 58 
le week-end ou la semaine aprea IBh. 

ECHANGE nombreux logiciels pour T07 - 
TO 7/70 sur K7 .pascal Martin. 10. ruedesPal- 
miers. 44118 La Chebvrotlere. 
CHERCHE pour MOS, Beach head, Super Ten- 
nis. Rotorwer, Novceprites, Top Chrono. Assde- 
sass. Dames, Crocky II, Space Shuttle. SIM, 
Challenge Voile, Odin, en location. Tel (18) 44 

84 72 04 (Beauvais). 

VENDS K7 logiciels, tous origlnaux poitie prix, 
pour Thomson MO5/T07 : Challenge, Voile, 
Kim, Ptanete Inconnue, Labyrinthe, Survfe, Les 
Dleux du Stade, C.A.O. (avec manuels). Pour 
MOS Premier pas vers le basic 1 et 2, Space 
Shuttle Simulator, Top Chrono, Budget familial. 
daniel au (1) 43 07 30 59 le son 



ECHANGE nombreux logciets pour MOS Jean 
Luc au (16) 88 07 03 00 la joumee et au (16) 
88 70 79 66 apres 181). 
VENOS T07 unit* centraie, extension teMma- 
tkjue neuve, extension 16K. magneto, logiciels, 
Hvres : 4200F Tel. (1) 46 82 18 09. 
VENDS coTfrat MOS, manettee, logiciels. Ires 
bon etat, sous garantie : 3100F. Vincent au (16) 
96 64 23 34 apres 18h, sauf le week-end et le 



(16)82 24 
Beausejo 



Inconacienl vends T07 avec ce qu'il taut. Etat 
minalXe, prix astronomique. Soul un idiot oaera 
repondra. Otat Kappes. 7/123, rue dee FueHMa, 
592B0 Armenti*res. tel. (18) 20 55 37 54. 
OFFRE 5 euper-teux (Karate. Puktar II, Numero 
10, Super-tennis et Mknlon delta) sur MOS m 
celui ou Bate qui me toumfra te Hating de la RAM 
■■■ » du MOS evou la maniere de pro- 



Pour MOS- T07 - T07/70 vends manettes elat 
neuf : 20F et nombreux jeux origlnaux : Karate, 
Super Tennis. Vol Soto, Coliseum et 1 autree) 
a moitie prix contre remboursement. Demander 
Edouard au (16) 35 60 57 54 en dehors dea heu- 
res scolaires. 

VENDS T07, clavier mecanique. extension 
16Ko, extension BKo, lecteur de K7, 3 cartou- 
ches de Rom : Basic, Pictor. Tridl, 3 Hvres 
Cede, jeux, de nombreux logiciels origlnaux sur 
K7, le toot en parfart etat r 3200F. Tel. (1) 34 67 
14 62, le soir de preference. 

ECHANGE T07, Basic, extension 16Ko, 2 K7. 
Hvres, revues, lecteur K7. nombreux program- 
mes, conire un ZX Spectrum, magneto, pkisieui' 
K7 de jeux. Ml. (1) 34 B7 57 35. 
VENDS pour TO7/70 2 supers-jeux d'aventure 
graphqiues, origlnaux : Aic,ie d'Or et Omega 
Ptanete Invisible; 2S0F les deux. Demander 
davld au (18)79 32 27 49. 
ECHANGE nombreux programmes de I 'Hondo 
pour Thomao T07 ou T07/70. Tout echange se 
fera par courrier. tel. (1) 34 87 57 35 apres 17h. 
VENDS MOS, magneto, extension norme Atari, 
manette, 15 jeux sur K7 originaux : La Geste. 
Mandragore, 5' Axe, AtaJe d'Or. Pulsar II. Rip- 
per, Dleux du Stade...), manuel: 2S00F. 
Demander Plerrick au (1) 40 27 33 72 aprea 



VENDS T07, configuration completo 1984, 
U.C., extension 18K, extension jeux et manet- 
tes, magneto, basic (avec 2 livres), Pictor, Trap, 
Gemini, 1 livre de programmes de Jeux, le tout 
10OOF. Vends imprimante Thomson haul de 
gamme PR90-600 (impact 80 coionnea), etat 
neuf, cable, extension communication, docs, 
papier : 2500F. Vends pour oromateur T07, K7 
originale* : Animalix, FBI, Diaux du Slade. Fox, 
■ "-- 100F cheque, cartouches T07, 
ec 2 livres: 900F, 
- debug, 4 livres : 
600F., Hvres Interpreteur Basic T07, Face 
Cachee du T07 : 50F cheque. Contactor le (16) 
43 61 96 02 

VENDS MOS. magneto, crayon optique. manet- 
tes at controieur. nombreux logiciels el Irvres 
Frederic martins au (16) 61 58 14 97 (Toutouae). 
VENDS TO7/70, 2 manettes de jeux, interface 
Musique, cartouche Basic, cartouche ayntheti- 
tia, 4 K7 de (mix, lecteur de K7. Le tout en bon 
etat : 3800F. Alexandra Bolasenln, 29, rue de 
Lattre 25270 Le Rueeey. Tel. (16) 81 43 75 60. 
ECHANGE logiciels pour TO7/70-TO7 et cher- 
che lecteur de disquettes 80K ou 320K A bas 
prix. Til. (18) 40 30 13 36 apres 17n. 



Thomson MOS, recherche photo co pies d'expti- 
catlons de jeux : 5" Axe, II L'intrus, Mission 
Delta, Usine Intemale. Sortilege, PoHtik Poker. 
Lorran, FBI...) remboursement assure ou 
echange contre d'autres photocopies Ecrire A 
JM Caneetrier, avenue Egrinda, Lot. Saida. bat 
A, 08200 Nice 

VENDS caitout^Getxkmrx^ve pour MOS dans 



Cause double emploi, vends MOS, lecteur dis- 
quettes 5"1/4, 320K, 8 disquettes, notices, lec- 
teur K7, 20 kjrjicteei origlnaux, crayon optique, 
controieur musique et jeux, 2 manettes Jeux : 
S000F. Demander Gaby au (16) 28 7B 10 81. 



VENDS pour MOS 12 K7 
78 77 63 (Oise). 



™.(16)44 



VENDS Hector IIHR, 4BK, 2 manettes, lecteur 
de K7 Incorpore, nombreuses K7 : 3000F A 
debattre. Tel. (16) 20 38 29 53. 

CHERCHE pour Canon X07, cartes memoirea 
4Ko. 18 Ko et cartes programmes. Tel au (16) 
75 56 45 50 heuree des repas ou le soir. 
VENDS Sinclair OL 128Ko, nombreux program- 
mes, Langage : BCPL, Lisp. Forth, Pascal. C 
(GST), C lattice (Epron), utHiialree ; Odoctor, 
Supercharge 2, Sprite Gen 3, Icon Controlled 
Envloronnement, Choice. Ram Disc, Compila- 
teur graphique, Toolkit, Graphic OL, Cormoe... 
. 4 Psions. Aventura : Skull, Troll Simulation : 
Dday, OL Fight, Snooker, OL Chess, Othello, 
Matchpolnt, Area radar Controlled. Arcade : 
Lands of Mavoc, Eva, Wanderer, Hyperdrive, 
Zapper, Cruncher. Cuthbert In Space, Crazy 
Printer, QL Cavern. Treasure..., 63 cartouches 
dont 12 vlergee, n° de OL User, livres : List. 
Rom OL, Grapheme, 68000. abonnement 4 Sin- 
clair QL World, nombreux listings, dea tonnes 
de documentations, camet d'adresse, contact. 
clubs. . :3000-Fle tout. Jean Patrick Pommier, 
19, rue Eugene Collin, 36400 St Malo. Tel. (16) 
99 81 63 74. 

VENDS pour Goupil 111, carte extension Bip 
Parallel©, carte controieur video 25 x 80, carte 
extension memoire 128K, carte unite centraie 
16 Nits 6088. carte unite centraie 2Mhz, 6809 
Version 1 , carte Bus fond de panler Version 3 : 
500F chacune a debattre. Carta controieur disk 
DMA, V1 : 1000F * debattre. Stephane Hous- 
sier au (16) 45 22 42 05. 

Dragon 32 vieillisanl recherche contacts pour 
echange r programmes ou informations, fairs 
oftre A Franck Casthetain, 17, rue Si-Pierre St 
Paul 59000 Lille. Tel. (18) 20 57 09 25. 
VENDS ecran Computer Moniteur 30cm, grand 
pouvoir separateur, dispositif anti-rofiols vert, 
20-00 caracteres, ties peu servi : 90OF. Tei. (16) 
44 27 46 28 apres 19h. 
ECHANGE programmes pour FX702P ou 
autree, liens durables, reponse aasuree. marc 
Leroy, 26, rue du general Glraud, 51000 
ChaJona-aur-Mame. 

VENDS calculatrice acientifique FX602P, inter 
face K7 FA2. etat neuf, K7B de programmes or i 
glnaies. poesibilite de synthese musicale avec 
le FA2, le tout BOOF. Gael au (16) 35 67 60 03. 



VENDS Vectrex tree bon etat. 2 manettes. 7 K7 : 

1400F. Mr Juste au (1) 46 09 86 87 heuraa 

bureau. 

ECHANGE Cycto 51 Black tree bon etat eavec 

jantes A battons et Ml 75 Cm3 et sette tongue, 

contra ordinateur de bonne quaktA avec exten- 

seur possibte, capacM minimum l20Ko. et avec 



VENDS Micro M05, lecteur K7. 2 livres techni- 

2ues, 4 logiciels : Le Cube (initiation Basic), 
checs, Les Dteux du Stade, Lorann, do juin 
85 : 1500F. Tel. (1) 45 42 67 57 le soir. 
CHERCHE logicieia educatifs pour T07 Anglais 
1 A 7 volumes, grammalre et vocabuftalre (2 
vol.), demonstration geometrie. Factorisation. 



i pries de contact Si ma 
demande intereaae quelqu'un. teleprwner au 
(16) 94 46 21 47 antra 17h30 et 21h30. 



VENDS Casio PB100. imprimante FP12, Inter- 
face K7 FAS, memoire DR1 , cassettes et docu- 
mentations, le tout dens embaHege d'origine ! 
BOOF. Tel. (1)43 33 03 20, 
VENDS interface CGV PHS60, untveraelle, 
modefe B avec aHrrxMitabon exterieure et embal- 
lage. permet le raccordement d'un micro A 
I'entree antenne d'un TV : 300F. Tel. (16) 51 93 
00 90. 

VENDS imprimante DWP1 . etat neuf, 1 logiciels 
originaux sur K7 et disquettes : 1500F le tout. 
Mr Menasrl Douadi, IE, aMe da la Uaktra, 
Bruch, 57600 Forbach. tei. (18) B7 85 74 90. 
VENDS Canon X07, memoire 4K, cordon K7, 3 
K7 avec documentations, le tout avec ornbalage 
d'origine : 1000F. Tei. (1) 43 33 03 20. 
VENDS orgue Casio PT30, B aonorites. 18 
rythmes. afftchage numertque analogique, une 
memoire numArique qui enregiaire an tempa 
reel, avec documentations et partitions : 500F. 

TAI. (1)43 33 03 20. 

VENOS re 



VENOS Sharp PC1500. Imprimante CE150, 
module 8Ko protege CE159, labtette sensitive 
CE163. manuels, acceeeoirae d'origine. Tech- 
nique reference manuel, revues dub Sharp, pro- 
grammes sur K7 (basic, LM), docs, le tout 
1900F. TAI. (1) 64 46 35 14 apres 1Bh30. 

Coucou. me revoUou I On ne peut pas dire que 
vous ayez ete nombreux A repondra A mon 
annonce preoedenta qui dbail : Vends console 
CBS avec 7 jeux BC'S Quest. Donkey Kong, 
Pttatop, Time Pilot, Module Trubo. Venture, 
Zaxxon, extension ordinateur Adam comprenant 
unile centraie 90K, clavier separe, lecteur enre- 
glstreur rapide K7 digitales, imprimante A mar- 
guerite, basic, super Buck Rogers (jam), K7 vie- 
rrtaa. Le tout en bon etat : 660OF A denattre. 
Akmt, comme c'esl vous (honorsbles lecteurs 
de I'HHHHebdo II !). je vais vous (aire une fteur 
(maigrA qu'on ne soit pas en pAriode de fete). 
je vous laisse le tout en echange de quelques 
mlsArabtes 6000F. Si ca vous intoresse 
(rJepechez-vous. y en aura pas pour tout le 
moride) adreasez-vous A Alain Hebinger, 58, rue 
de la Comete, 88200 Mulhouaa. Tel. (16) BB 42 
21 07, 1'apres rnldl. (NDUC :Ehoh! Cast pas 
una annonce cA, e'eat un roman !) 
VENOS superbe walkman Sony WM-F20 ayant 
la FM, Dolby K7, achete II y a B mois : 800F A 
debattre. Guillaume Durandet, 1 63, rue de Cha- 
renton, 7S012 parts 7 TAI. (1) 43 40 32 28. 



1Mb 

VENDS Philips VG 5000, magneto : 650F ou 
Achange contre Spectrum peritel, un Atari 
BOOXL peritel, un Atmoa, un TtocMA, un Yeno. 
un Vic 20 avec extension, un Sanyo PHC28 ou 
un Canon V20. Out. e'est termmA 1. Non, je 
recherche aussi un monHeur monochrome avec 
son et peritel. S'adresser A Stephana Rault, 10. 
Lonssement La Pommeraie Janvitle, 14670 
Troam. 

CHERCHE desepArAment, non pas Susan, 
maia : une TV ou un moniteur bon marchA peri- 
tel pour un Atmoa, un joystick et une interface 
prc-grammable Oric St q u atq u ea taatclala pea 
trop nuls. patrice Parayre, 5, rue Jean Bart, 
81000 Albl. 

RECHERCHE HetjdogWel suivants : 98, 99. 28. 
30 A 34, 46 A 56. Fairs oftre A Jean-Michel 
Catoira, 92, bd Chateaudun, 80000 Amiens 

VENDS ensemble Videopac Philips avec 7 jeux 
pour seulement 400F A debattre. Charies-HervA 
RiC0urau(16}41 86 00 34. 
VENDS imprimante Seewsna GP500, cordon 
Oric : 2000F. AndrA Fava, 63, rue C. Gonneau, 

77140 Nemours. 

VENDS TRS80. model I niveau II, magneto. 
video monochorme, nombreux jeux et utiWairaa 
aur K7, le tout 20O0F. Vends etjatornent vectrex. 
4 cartouches, le tout 700F. Tel. (16) 20 78 63 68. 
CHERCHE Hard-Copy pour I'rrrsprtmants Smith 
Corona fastext 80 at toumarrt aur la CPC 464 
couleur. tat. (16) 68 04 88 90, demander Djamal. 
VENDS orgue Yamaha PSSS portable, tranatdr- 
maleur, valise rigide, tree bon etat : 4000F. TAI. 
(16) 91 88 35 34. 

VENDS lecteur de dsquenes Microdisc (decem- 
bre 85), peu servi, avec Sedoric et son manuel. 
En cadeau une dtaquetto 3" vterge : 20O0F. Vin 
cam au (1)48 21 90 14. 



ECHANGE nombreux programmes Bur K7 pour 
les micros suivants : MSX, Amstrad, Spectrum, 
TO7/70 et MOS. Laurent Akton, Chemln de la 
Chapelle, Lacoste, 34800 Clemwnt-Ferrand. 
(NDUC : C'aat vral ca. H doit an avoir du trie, 
cul la, pour avoir 5 ordtoataura, non ?) 
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UN BASIC POUR ST, 
UN ! 



II s'appelle.. il s'appelle... 
Ben non, il n'a pas de nom. 
Ah ! si, enfin c'est pas un 
nom, c'est le pare Softworks qui 
nous I'a fait. Heln ? Vous connais 
sez pas ? Bon, ben rentrez-vous 
dans le crane que c'est une boite 
americaine qui a eu la bonne idee 
de soriir un basic pour ia becane 
qui en a (ait craquer plus d'un : le 
ST. Je ne vous dis pas a quel point 
c'etait une bonne idee. Vous 
savez ce qu'on pensait du fameux 
ST basic, celui qui est livre avec 
la machine. Non, vous savez pas. 
Ben on en pensait du mai, beau- 
coup de mal. Non seulement il 
etait effroyablement bugge, mats 
en plus il etait entierement sous 
Gem ce qui le rendait lent comme 
un escargot et lourd comme une 
enclume. 

Loin de cette epave, nous avons 
done ce petit dernier dans les 
bras. Mais ce n'est pas tres exac- 
tement le meme basic que son 
predecesseur. Non, celui-la est 
compacte, absolument ma bonne 
dame, compacte, comme je vous 
I'dis. C'est-a-dire que pour faire un 
programme avec ce fameux basic, 
vous devez d'abord changer un 
ediieur Quel editeur ? Je sais pas. 
Oemerdez-vous- En tout cas, il n'y 
en a pas sur la disquette fournie. 
ST Writer peut convenir, et il est 
livre aussi avec la becane. Grace 
a cet editeur, vous allez pouvoir 
creer votre source, en fait taper le 
listing de votre programme. Une 
fois sauve, vous charger le pro- 
gramme de compactage qui se 
charge de... comme qui dirait com- 
pactor le source, c'est-a-dire le 
transformer en la m6me chose, 
mais oiptimise. Durant cette 
phase, si vous avez fait une erreur, 
elle vous est signalee et si vous 
n'en avez pas fait, un programme 
d'extension ".RUN" est genere. 
Enfin, pour faire tourner votre 
oauvre, il vous suffira de charger 
un autre soft (BRUN.PRG) qui 



executors le programme en 
".RUN". Bret, II n'y a pas la ion- 
gue phase de linkage chere aux 
programmeurs en Pascal et autres 
C de tout poll. 

Le langage en lul-meme est tres 
interessant et ne ressemble en 
rlen a son homologue officiel 
vendu avec la becane. Tout 
d'abord, les numeros de lignes ne 
sont pas necessalres. Vous pou- 
vez les mettre, mais ils sont facul- 
tatifs. Done, pour s'y retrouver, 
vous pouvez utiliser des labels et 
executor des GOTO label ou des 
GOSUB label voire meme des 
CALL label. 

D'autre part, le nombre des instru- 
tions n'est pas tres important car 
un grand nombre de fonction 





Gem, GemDos et Bios sont inclu- 
ses et accessibles precedees par 
un maglque Toolbox. Par exem- 
ple, vous pouvez definir une zone 
de travail, un handle, grace aux 
instructions Openworkstation de la 
meme facon qu'en C mais sans la 
lourdeur de ce dernier. Passee 
cette phase qui est necessaire au 
Gem pour s'y retrouver dans ses 
petits papiers, vous pouvez faire 
n'importe quoi. Par exemple Tool- 
box Vellipse,h,x,y,xang,yang ou h 
est le handle qui a ete retourne 
precedement par la fonction 
OpenWorkstation, x est I'abscisse 
du centre, y I'ordonnee et xang et 
yang sont les deux autres parame- 
tres necessaires a I'etaboration 



d'une ellipse et dont je ne me rap- 
pelle plus le nom. Tous les autres 
parametres (style de dallage, taille 
du crayon, pointllle, etc..) sont 
modlflables par d'autres instruc- 
tions. Grace a ce systeme, vous 
pouvez avoir acces a toutes les 
instructions graphiques possibles 
puisque c'est la vocation du Gem. 
II va sans dire que les Instructions 
relatives aux fichlers sont aussi 
disponibles par I'iniermedlalre du 
GemDos. Done, vous pourrez 
manlpuler des catalogues, charger 
des pistes, etc. Les fonction du 
bios etant egalement preaentes, 
vous pourrez changer la palette, 
parametrer la RS 232 ou ['inter- 
face parallels sans grande dlffl- 
culte. Si on excepte toolbox, le 
reste du basic est pour le moins 
standard : un FOR et son NEXT 
avec un STEP, un IF-THEN-ELSE 
et la plupart des instructions clas- 
siques sont disponibles. PRINT, 
PRINT USING, INPUT, LINE 
INPUT, READ, DATA, ON ERROR 
GOTO, et d'autres sont egalement 
au rendez-vous. 

L'inconvenient majeur de ce pro- 
duit est que si vous faites une 
erreur dans le listing elle ne vous 
est signalee que pendant la com- 
pilation et vous devez recharger 
I'editeur et le source pour tout 
recommences C'est a vous de la 
trouver. 

Quelques petites betises ont ete 
oubliees, par exemple si vous fai- 
tes un PRINT A$ avec plus de 80 
caracteres dans A$, la fin de la 
chalne sera affichee sur le dernier 
caractere de la ligne. Si vous vou- 
lez, le compilateur ne prevoit par 
le retour chariot en fin de ligne, ce 
qui peut se reveler chiant a la 
longue. 

Au-dela de ca, aucune erreur gros- 
siere n'a ete commise. Les pos- 
sesseurs de ST vont pouvoir enfin 
s'en donner a cceur joie sans 
s'exciter sur un C a se rouler par 
terre et un Modula 2 pas evident 
du tout. 

A noter : c'est chez RUN Informa- 
tique que nous avons degote ce 
soft et c'est d'ailleurs le seul 
endroit ou il etait disponible. Je le 
dis parce que c'est vrai et si ca 
continue, faudra qu'ca cesse. 
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Specialise dans la distribution SINCLAIR depuis 3 ans, 

INTERFACE VOUS F=-ROF^OSE 

Un stock tres important d'intertaces et de programmes SPECTRUM 

remis a jour reguli^rement grace a un approvisionnement 

"hebdomadaire en provenance d'outre-manche 

Ses dernieres nouveautes en utilitaires et en jeux . 

Nous disposons egalement sur stock , de nombreux programmes QL 
ainsi que ses dilferentes interfaces ( Memoire.DiskJoystick, etc ... ) 
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Microdrives 29 FrS / 
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Nous expedions vers la province : 

Recommande : Cheque a la commande + 30 Frs de port 
Contre-remboursement : Commande + 50 Frs a la reception 
Enregistrer vos commandes au : 48 . 74 .00 . 34 
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Juste un mot, les kids : j'ai tout sur Franquin. C'est un monu- 

fini le Franquin-Sadoul, j'ai ment a lire absolument. Voila. Et 

pas trop la place pour en le Martin Veyron est tres bon 

parler vraiment, sachez aussi. Et les olseaux chantent, le 

seulement que c'est soleil brille, c'est super, ciao 
extraordinaire. Ca manquait. En 
sortant de la, on sait absolument Milou. 



MARTEAU 

<m> 



Ah ! Qa y est I J'ai termine les Entre- 
tiens Sadoul-Franquin ! Le monstre, 
dis-donc, m'a fallu un mois pour le 
terminer. C'est que ca se lit pas 
comme la page politique de France- 
Soir, ca. C'est un pave. 
Bon. C'est indispensable. On ne 
connaTt pas Franquin tant qu'on a 
pas lu ca. Sadoul, c'est le genre de 
mec a demander pourquoi le trait 
qui est en haul de la case 4 de la 
planche 7 de I'album R4 a un peu 
bave. Et Franquin, c'est le genre de 
type a repondre que c'est parce qu'il 
utilisait a I'epoque une plume un 
peu ebrechee, qu'on retrouve aussi 
planches 12, 45 et 47 de ('album R6. 
C'est vous dire si c'est precis. Ces 
entretiens sont divises en plusieurs 
parties : Franquin des origines a nos 
jours (entretien informel, lis parlent 
de metier, de la vie en general, de 
la deprime chronique de Franquin), 
Spirou (visiblement le person nage 
qu'il aime le moins), Modeste et 
Pompon, Gaston, et Petits Mons- 
ires, Trombone, Idees Noires, etc. 
Le tout, album par album, planche 
par planche. On apprend que Fran- 
quin n'aime pas ce qu'il fait, ce con, 
on se demands bien pourquoi. On 
apprend aussi en quoi consistaient 



ses collaborations avec Will, Greg, 
Jidehem et les autres. Tiens, pour 
vous en mettre plein la vue, c'est 
Greg qui a repris le scenario de 
QRN sur Bretzelburg a partir de la 
planche 7. C'est bourre de trues 
comme ca. On trouve aussi les pres- 
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sions dont Franquin faisait I'objet 
lorsqu'il se laissalt aller a dessiner 
des choses qui pouvalent "choquer 
les jeunes lecteurs de Spirou" 
Bon, c'est la bible de Franquin, 
quoi, en deux mots. 

LES ENTRBTIENS SADOUL- 
FRANQUIN chez DISTRI-BD 
SCHLIRF, 220 francs, 200 pages, 
plain* d'inedits, c'est gonial I 
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LES ONCLES PAUL 
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MUNOZ SAMPAYO 15 
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AUTHEMAN 14 


UN MOME DE PERDU... 


TAFFIN 14 
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ROBBINS 14 
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L'ARBRE DE MAI 
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DARVE 2 


DON LAWRENCE LODEWIJK12 


LA MANIERE NOIRE 


WOZNIAK 12 


ALERTE A ESLAPION 


SERON 11 


ECRIT PAR LA TEMPETE 


QINE 11 
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auraient largement pu s'abstenir, 
c'est nul. Quand j'etais mdme, je 
lisais les gros bouquins relies de 
Time Life sur la mer et sur plein 
d'autres sujets, y avait des photos, 
des explications pseudo- 
scientifiques, e'etait super. Les 
auteurs devaient trouver ca super 
aussi, alors il se sont dit qu'il n'y 
avait qu'a faire la meme chose en 
enrobant ca dans du romanesque, 
et la je ne suis pas d'accord. Qa foul 



ENCLUME 

<8> 



Rendition : I'original date de 1968. 
C'est la quinzaine du sedatif, en ce 
moment. C'est encore pour les 
mdmes Mais par contre, on a beau 
dire, Derib et Rosy sont des pros, 
bien que d'habitude je n'aime pas 
ce qu'ils font. Enfin, je parle pour 
Derib, Rosy j'ai rien contre. Bon. 
Attila, le chien militaire qui parle, a 
un accident d'avlon dans la pro- 
priety d'un vieux grigou qui est sur 
le point de decouvrir un tresor dans 
le chateau de I'enfant dont il a la 
garde. Deja, rien que ca, on a envie 
de continuer : Attila survivra-t-il a 
I'accident d'avion ? Va-t-il s'aperce- 
voir que le vieux est un grigou ? Va- 



MACHEFER 



Ah, le nul ! Michel Vaillant, ouah, le 
ringard ! Que c'est nul ! Mon Dieu 
mon Dieu comment peut-on sortir 
des choses pareilies ! Quelle honte ! 
Et le mec, y signe ! Graton, y 
s'appelle I Si j'avais son numero de 
telephone, je vous le donnerais, 
pour que vous puissiez I'injurier 
copieusement ! 

Alors, deja, on peut pas allumer sa 
tele sans se prendre Noah, Prost et 
Platini dans la gueule, si en plus faut 
s'en taper autant dans la bd, non 
merci ! Tiens, je vais vous dire ce 
que je pense : c'est digne d'etre 
passe dans Tele Poche. Vous 
voyez, le genre Arthur et Zoe ou 
serie sportive a la mords-moi le 
nceud bien-pensante. Ah, je me 
defoule, la. Qa fait du bien. Michel 
Vaillant, salaud, le peuple aura ta 
peau. C'est nul, impossible d'en dire 
autre chose. La haine que j'ai pour 
Michel Vaillant et Jean Graton, je 
vous raconte pas. Je supports pas 
les bagnoles, les circuits m'emmer- 
dent, les sport its me gonflent, les 
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ne pas embrouiller les pistes ? 
Autant de questions dont la reponse 
est oui dans I'album. C'est vous dire 
a quel point le determinisme est pre- 




coureurs me courent et Jean Gra- 
ton me peie Je prie jour et nuit pour 
que le pouvoir decide la privatisa- 
tion des albums de Michel Vaillant. 
Parce que la, je rachete tout, cash, 
et je te pilonne tout ca avec un plai- 
sir que je te raconte meme pas I 
Mais excusez-moi, Comtesse, je 
m'emporte. 

PANIQUE A MONACO de GRA- 
TON LE NUL chez GRATON EDI- 
TEUR berk berk, j'ai mime pas le 
prlx, tiens. 



ENCLUME 



A premiere vue, cet album est etran- 
ger. A seconde vue, effectivement, 
on s'apercoit que c'est de Sampayo 
et Solano Lopez. Malgre Samoayo, 




DEUX SUPER-CONCOURS PERMAMENTS 

20.000 francs de prix au MEILLEUR LOGICIEL du MOSS at un VOYAGE pour 2 par- 
sonnas en CALIFORNtE au mellleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rlen de bien original dans cette 
formule, pourtant nous essayons 
de falre quelque chose de diffe- 
rent : nous organlsons un con- 
cours permanent tous les mois et 
tous les trlmestres I Et avec des 
prix dlgnes des programmes que 
vous allez nous envoyer I 
De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur la 
grille recapitulative mensuelle. 
Pas de jury, pas de decision arbi- 
trage, HEBDOGICIEL n'lnterve- 
nant que dans le cholx des pro- 
grammes qui devront etre ORlGi- 
NAUX et FRANCAIS. SI votre pro- 
gramme n est pas tout a fait au 
point, un de nos speciallstes vous 
dlra comment I'ameliorer pour 
nous le proposer a nouveau. 
Pour partlclper, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de partici- 
pation alnsi que de toutes les 
explications necessafres a ('utili- 
sation de ce programme. 
Bonne chance I 



Reglement : 

ART.1 : HEBDOGICIEL organise de 
facon mensuelle et trimestrielle un 
concours dote de prix recompen- 
sant le meilleur programme du mois 
et du trimestre. 

ART.2 : Ce concours est ouvert a 
tout auteur de logiciel quel que soit 
le materiel sur lequel il est realise. 
L'envoi d'un logiciel en cassette ou 
disquette accompagne d'un bon de 
participation decoupe dans HEB- 
DOGICIEL constitue I'acte de 
candidature. 

ART.3 : La redaction d'HEBDOGI- 
CIEL se reserve le droit de selec- 
tionner sur la base de la qualite et 
de I'originalite les logiciels qui sont 
publies dans le journal. 
ART .4 : Ce sont les lecteurs qui, par 
leur vote, determinant les meilleurs 
logiciels mensuets et trimestriels. 
ART.5 : Le prix alloue pour le con- 
cours mensuel sera remis au plus 
tard un mois apres la cloture du con- 
cours mensuel. 

ART.6 : Le phx alloue pour le con- 
cours trimestriel sera remis au plus 
tard un mois apres la cloture du con- 



cours trimestriel. 

ART. 7 : Le present reglement a ete 
depose chez Maitre Jaunatre, 1 rue 
des Halles, 75001 Paris. 
ART.8 : HEBDOGICIEL se reserve 
le droit d'interrompre a tout moment 
le present concours en avisant les 
lecteurs un mois avant. 
ART.9 : La participation au con- 
cours entraine I'acceptation par les 
concurrents du present reglement. 

HEBDOGICIEL : 24 rue Baron 
75017 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par rap- 
port a la totalite des programmes 
recus pour un meme ordlnateur. 

Alnsi, pas de favorltisme pour les 
ordlnateurs plus puissants ou tres 
diffuses. 



BON DE PARTICIPATION 



Nom 

Prenom : 

Age Profession : 

Adresse 

N' telephone 

Nom du programme : 

Nom du materiel utilise 

declare etre I'auteur de ce programme qui n'est m une imitation ni une 
copie dun programme existant. Ce piogramme reste ma propriete et 
j'autonse HEBDOGICIEL a le pubher. La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obhgatoire . 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne d'un descnptif detaille d_u_.matenej utilise, 
d'une notice d'utilisation du programme Les supports des program- 
mes publies sont conserves, n'oubliez done pas d'en faire une copie. 




SALUT LA PIIOIIO 



Vous detestez voire libraire ? Bravo I SALUT LA PROMO esl faite 
pour vous. Chaque semaine les plus malins d'entre vous pour- 
ront profiler d'une offre speciale mais aussi nous commander 
tous les albums de bandes dessinees de leur choix. En plus, cha- 
que album donnera droit a un polnt-cadeau, plusieurs points 
cadeaux donnant droit a un album de bandes dessinees gratos 
(3 points pour "Les Robinson du Rail" de Franquin 5 points pour 
"Kamasutra" de Jacovitti, et 8 points pour "Pin-Up, toutes les 
pinups du siecle"). Comment commander ? Tres simple, sur la 
liste des albums, publiee chaque semaine, prenez les prix, ajoutez 
10 francs de port si vous n'en commandez qu'un, ou 6 francs 
par album s'il y en a plusieurs, et renvoyez-nous le coupon 
reponse avec votre paiement. Attention, a partir de 4 albums, 
le port est gratuit et a partir de 240 francs vous recevrez gratos 
le mensuel "Spot BD". 

Salut les Franquin. 

O'abord, faut rassurer ceux qui ont commande un album dedl- 
cace de Maester : 9a arrive, 9a arrive, momento, il eat tres 
felgnant. 

Ensulte, merci pour ceux qui ont exprime leurs condolean- 
ces a propos de mon grand-pere. Ca m'a un peu recontorte, 
juste avant que ma grand-mere n'y passe a son tour. Cast 
la vie, y a des series, comme ca. Alors Je suis pas tres gal. 
Bon, pariona quand meme de promo. Cette semaine, excep- 
tlonnellement, II y a deux promos : la premiere, e'est Martin 
Veyron, pour I'achat duquel vous gagnez quatre cartes pos- 
tales de lui (Veyron, pas le journal). La deuxieme : le Franquln- 
Sadoul. Alors la, e'est complique : je vous offre un msrsupl- 
larni, genre latex, entlersment articulable, d'envlron 25 cm, 
plus deux points-cadeaux, que vous pouvez reutlliser comme 
vous voulez. Attention : le Franquin, 9a dure lusqu'a la 
semaine prochaine. 
Adios, muchachos. 

D Je veux le Veyron a 59 balles, plus le port. Joignez-y les car- 
tes postales. 

Q Je veux le Franquin a 220 balles, joignez-y les points-cadeaux 
et le marsupilami. 

D Je veux un album ci-contre. 

G Non, plusieurs. 

□ Catalogue. 




L'HOMME A LA VALISE 45,00 

LA FEMME DU MAGICIEN 72,00 

TRAGIQUES DESTINS 49,00 

BLOODI ET LES RONGEURS 32,00 

ASHE BARRETT 67,00 
MAESTER ET BOULES DE 

GOMME 45,00 

MORBUS GRAVIS 59,50 

ROCK MASTARD 65,00 

LE THEOREME DE BELL 49,00 

LA FIN DU MONDE... 59,00 

LA FEMME PIEGE 69,00 

LES 110 PILULES 45,00 
DECONFITURE AU PETIT 

DEJEUNER 45,00 

LE VICOMTE 59,50 

SUPERWEST 49,00 

OBJECTIF DANGER 69,00 

LE PAYS QA 35,00 

LES ONCLES PAUL 49,00 

DECRESCENDO 69,00 

SUDOR SUDACA 68,00 

UNE NUIT CHEZ TENNESSEE 39,50 

LE CLUB DE MAFALDA 36,00 

LES 7 VIES DE L'EPERVIER 1 39,50 

LES 7 VIES DE L'EPERVIER 2 39,50 

LES 7 VIES DE L'EPERVIER 3 39,50 
LES ENTRETIENS SADOUL- 

FRANQUIN 220,0 

CADAVRES EN SOLDE 42,00 

LE GALION ENGLOUTI 49,00 

PAUL 40,00 

PANIQUE A MONACO 35,00 

RONDE DE NUIT 35,00 

ATTILA AU CHATEAU 35,00 

LA COULEUR DE LA VIE 36,00 

L'EMPEREUR DES SINGES 34,50 

EXECUTIVE WOMAN 59,00 



Nom : Code postal + Ville : , 

Prenom : Envoyez ce bon a : IMPRESSION 3 Impasse du 

Adresse : Colombier 95230 SOISY. 
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Vous voulez un petit jeu amusant pour tinir ? Essayez 
d'extrapoler les fantastiques baisses de ce marche de lous 
sur des produits divers. 

Combien une tele couleur Philips apres un an d'exis- 
tence ? 1.500 balles I Combien un walkman Sony ? 125 
francs. Un disk laser ? 450 balles. Un photocopieur Canon 
de course ? 2.800 francs. Un paquet de Gauloises ? 1 ,20 
francs. Un timbre ? 13 centimes... 



TOP SECRET 



Le MSX 3 arrive, si, je vous jure, il arrive doucement, 
mais il arrive. Voila les petits bruits qui courent a son 
sujet. D'abord il conliendrait un IAPX 386 (le dernier 
micro-processeur Intel, un vrai 32 bits, c'est un des plus puis- 
sants au monde). De plu, pour assurer la compatibility avec 
ses freres a?nes, il semblerait que les faces de citron aient 
decidd de I'equiper d'un Z 80 en prime. Mais, d'apres cer- 
taines sources, il semblerait que ce choix ne soit pas deflni- 
tif, en effet on parle aussi de la possibility de order un emu- 
lateur soft, ou un circuit integre speclfique. En gros, on sait 
pas grand chose. On verra bien ! Pour I'ecran, bonjour I II 
semble que le choix soit de 1024 par 1024 en 256 couleur s 
simultanees, anfin, la memoire video ferait 1 Mega Octet. Le 
son atteindrait le meme niveau, c'est-a-dire un circuit inte- 
gre qui serait en fait un veritable synthetiseur de musique, 
on parle de capacites equivalentes au DX 7 de Yamaha, les 
musiciens apprecieront. La memoire de ce true devrait tour- 
ner aux alentours de 1 Mega Octet utilisateurs, ce qui porte 
('ensemble a deux megas, on voit que le prix de la Ram 
baisse. En prime, il y aura un disque dur en technologie C 
MOS (done faible consommateur de courant). Pour la capa- 
city Rom, on sait pas encore. La memoire de masse prevue 
est tres futuriste, puisque I'on parle beaucoup d'un disque 
laser effacable a volonte. Bon, c'est pas tout, les japonais 
comptent presenter cette appareil vers la fin 87, ce qui cor- 
respond aussi a la sortie de la TVHD (Tel6 Vision Haute Defi- 
nition) d'une resolution de 1024 par 1024 points. Enfin, un 
true marram, le prix serait environ celui du MSX 2 Sony, e'est- 
a-dire aux environs de 7000 francs, mais la rien n'est cer- 
tain. Quoi, de la science-fiction ? Non, le prototype existe I 
Evidemment, tout ceci est ultra confidential, je compte sur 
vous pour ne le dire a personne... 
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SHARP 

SHARP 

SINCLAIR 

SINCLAIR 

SINCLAIR 

SINCLAIR 

SONY 

SONY 

SPECTRAVIDEO 

TANDY 

TANDY 

TANDY 

TANDY 

TEXAS 

THOMSON 

THOMSON 

THOMSON 

TOSHIBA 

YAMAHA 

YASHICA 



ORDINATEUR 



CPC 464 M 

CPC 464 C 

CPC 664 M 

CPC 664 C 

PCW 8256 

Me (80 Col.) 

lie 

Mac 128 

Mac 512 

F1 

130 XE 

600 XL 

800 XL 

520 ST 

MSX V20 

X07 

PB 700 

FP6000 

C 64 SECAM 

C 64 PAL 

SX 64 

IBM PC 

EXL 100 

MSX FC 200 

G4 

HRX 

MX 

PC 

PC PORTABLE 

ENTREPRISE 64 

LASER 3000 

LASER 200 

96 

ALICE 32 

ALICE 90 

M 10 

ATMOS 

MSX VG 8010 

MSX VG 8020 

VG 5000 

MSX PHC 28 

MSX YENO 

YENO SC 3000 

MZ 730 

Mzaoo 

PC 1500 

ZX81 

SPECTRUM 

SPECTRUM + 

QL 

MSX HIT BIT 501 

MSX HIT BIT 75 F 

MSX SV 728 

MC 10 

TRS 80 4P 

TRS 80 M100 

TRS 80 M12 

Tl PC PORTABLE 

M05 

TO7/70 

T09 

MSX HX-10 

MSX YIS 503 

MSX YC-64 



PRIX 
84/85 

2.990 
4.490 
4.490 
5.990 
6.990 
17.000 
13.000 
29.300 
35.574 
15.390 
1.990 
3.100 
3.380 
10.000 
3.200 
2.370 
2.515 
54.000 
3.990 
3.490 
13.640 
15.000 
3.290 
2.600 
35.000 
4.700 
5.490 
22.415 
27.300 
4.990 
9.640 
2.060 
3.850 
1.190 
2.495 
6.380 
2.425 
2.880 
3.250 
1.590 
2.990 
3.500 
2.600 
3.440 
3.500 
2.600 
990 
2.490 
2.490 
6.950 
2.990 
3.400 
3.500 
1.195 
18.500 
5.995 
32.000 
37.300 
3.240 
4.750 
12.000 
3.200 
3.400 
3.900 



2.690 

3.990 

3.790 

4.990 

5.925 

9.994 

6.000 

18.900 

26.090 

9.900 

1.490 

580 

990 

5.990 

900 

1.680 

1.440 

25.000 

2.490 

1.500 

6.990 

4.800 

2.690 

1.200 

26.500 

2.600 

4.190 

15.418 

11.800 

3.000 

3.980 

1.290 

990 

190 

390 

3.990 

990 

800 

1.290 

1.000 

900 

1.000 

1.700 

1.200 

1.734 

1.890 

580 

850 

1.250 

2.990 

1.990 

900 

1.300 

500 

10.700 

3.000 

14.500 

28.000 

2.490 

3.450 

6.490 

900 

1.000 

1.000 



RA8AIS RABAIS 
EN H EN FRANCS 



10% 
11 % 
15% 
16% 
15% 
41 % 
53% 
35% 
26% 
35 % 
25 % 
81 % 
70% 

40 % 

71 % 
29 % 
42% 
53% 
37 % 
57% 
48% 
66 % 
18% 
53 % 
24% 
44 % 
23% 
31 % 
56 % 
39 % 
58% 
37% 
74% 
84 % 
84 % 
23 % 
59 % 

72 % 
60% 
37% 
66% 
71 % 
34% 
65 % 
50% 
27 % 

41 % 
65 % 
50% 
56% 
33% 
73% 
62 % 
58% 
42% 
49% 
54% 
24% 
23 % 
27 % 
45 % 
71 % 
70% 
74 % 



300 
500 
700 

1.000 
1.065 
7.006 
7,000 
10.400 
9.484 
5.490 

500 
2.520 
2.390 
4,010 
2 300 

690 
1.075 
29.000 
1.500 
1.990 
6.650 
10.200 

600 
1.400 
8.500 
2.100 
1.300 
6.997 
15,500 
1.990 
5.660 

770 
2.860 
1.000 
2.105 
2.390 
1.435 
2.080 
1.960 

590 
2.090 
2.500 

900 
2.240 
1.766 

710 

410 
1.640 
1.240 
3.960 
1.000 
2.500 
1.300 

695 
7.800 
2.995 
17.500 
9.300 

750 
1.300 
5.510 
2.300 
2.400 
2.900 



VOUS 

L'AVEZ 

RATE? 



NEPLEUREZPLUS, 
nous l'avons reedite ! 




100 pages de programmes de course 

avec 6 cassettes de 25 programmes 

originaux. 

Le tout pour 100 francs, qui dit 

moins ? 



^ 

Bon de commande a decouper ou a recopier, 

adresse a : 
HEBDOG1CIEL, 24, rue Baron, 75017 Paris. 

D Je desire recevoir "Hebdogiciel Hors-Serie Amstrad" H ' 
accompagne de ses 6 cassettes de programmes. 



NOM : 

PRENOM i 

ADRESSE COMPLETE : 



Ci-joint mon reglement de 100 francs + 15 francs de participatio 
aux frais de port et d'emballase, soit 115 francs. 

Cheque □ CCP □ 




LES PRIX ON LES TERRASSE ! 

W l>/ BOUTIQUE OUVERTE 

t ^ DE 10H A 19H DU LUNDI AU SAMEDI 



j£*S° 



■N^^ 



DEGENERES 
DU CLAVIER, FAITES 
CHAUFFER VOS CHEQUIERS 




EQUIPEMENT DE BASE + UNITE DE DISQUETTES TOTALEMENT COMPATIBLE CPM. 



BON E>E COJYIJVIANDE A ENVOYER A ALP AX 

142, avenue Gabriel Peri, 93400 Saint-Ouen. 
PERSONNAL COMPUTER 690 F. D ^ KrN"W Pour les 100 premieres 

commandes d'ensembles : 

PROMO : PERS. COMPUT. Z.MW*"Z JT* vprM?! d ? V ° k ^ , 

LEC. CONTROL. 1490 F. D ^VvW^^ >LIA (valeur 

Nom : Prenom. 

Adresse complete : 

Code postal 



UNITE 
CENTRALE 

Z80 A, 4 MHZ, 32K ROM - 64K RAM 

CLAVIER AZERTY 

BLOC NUMERIQUE 

INTERFACE SERIE RS 232C 

PARALLELE CENTRONICS. 

LECTEUR 
DE DISQUETTES 

DOUBLE FACE 

DOUBLE DENSITE 

320K AVEC CONTROLEUR 

ET ALIMENTATION 



±E RETOUR DU 

Finalement, DARK VADOR decouvrit la planete ou se 
cachait I'intrepide rebelle et les redoutables chasseurs de 
I'empire altaient devoir encore une fois se mesurer a "la 
force"... 

Thierry PARISY 
Mode d'emploi : 

Ce programme occupe environ 16 Ko. Vous devez proteger votre chas- 
seur et la maison qui vous sert de refuge, afin de pouvoir vous envoler 
sans encombre vers de nouvetles aventures en compagnie de R2-D2. 
La protection de la base est assuree par deux puissants canons lasers 
que vous dirigez grace a un viseur. Votre chasseur possede en outre, un 
ecran de protection qui ne peut malheureusement encaisser que deux 
impacts. 

Le nombre de points accordes pour la destruction des chasseurs est pro- 
portionnel a leur eloignement (40, 30, 25, 5 points). Les navettes qui par- 
tots essaient d'atterrir pour detruire votre chasseur ne sont pas armees : 
el les rapportent 50 points. 
BONUS (a la fin du jeu ) : 

- Maison intacte : 100 points (sinon, -200 en cours de jeu). 

- Ecran intact : 50 points. 

- Ecran louche une fois I 35 points. 

II faut obtenlr plus de 300 points pour avoir I'honneur supreme de figurer 
au tableau des scores (cinq joueurs). 



'cHe'eie'-c'esrtfoi. 



Hew 



28 ' I -LE RETOUR DU JEM mr 

38 ' I i 1 

40 ' |0 Ithierry PARISV I 



60 ' I 0CT0BRE 85 



90 



PRESENTATION 



110 N1 = 1:B5 = 88:DIMA*U5):DIM8«(12):0P 

EN"GRP: "AS»1COLOR14,1,1:SCREEN3,2,8 

M$="S14M1886A1" 

120 DEFFNA-RND(1)*255;DEFFNB«RND(1)*1 

80 

130 PRESET(25,5)PRINTHl,"thitrry" 

140 FORV»192T0145STEP-5:LINE(46,145>- 

(228,192>,1,BF:PRESET(48,V):PRINTII1," 

PARISV" :PLAVN$:NEXT:X-28V-48:G0SUB17 

8X-20V-180 8OSUB170 

150 F0RI»1T0866:NEXT:SCREEN2LI»E(35, 

78)-(283,117),4,BF:LINE(6e,75)-(198,l 

12>,5,BF 

168 PRESE7(88,98):C0L0R7:I>RIIITII1,"V0U 

S PRESEKTE" : B0SUB188 : 80T0198 

170 F0RJ-1T04:C«2:F0RI«1T014:PSET(X,V 

),C:C"C*1:X»X<-4:NEXT:BEEP:NEXT:RETURN 

180 S0UND7,258:M*-"V13T8B04C5G4F12E12 

D1205C50484F12E12D1205C504G4F12E12F12 

D5":PLAVH»;PLAV"D13" :PLAV"D13" :PL«VH» 

:RETURN 

190 C0LOR14,l'SCR£EN2,2 

200 B0SUB4118: IFFIN-1THEN218 

218 A»="S4DieR5U2L3U8Li" 

220 J»-"D16R3U2L3U2R1U2L1U2R3U2L4" 

230 JJ»=" D26R9U4L6U4R4U4L4U4R6U4L9" 

240 J1«-"D28R13U7L8U6R6U6L6U6R6U6L13D 

2" 

258 C»="D28R3U8R5DSR3U8H2E2U8L11BH*3, 

3R5D6L3U5" 

260 D*»"R13D4L3D13L3U13L5U4" 

278 E»""R11D17L11U17BM*3,3R5D11L5U11" 

280 F»=-B2eR12U26L3D17L6U17L3" 

290 B»-"D16R4E2U6H2L3SM»1,2R1F1D4G1L1 

UJ" 

388 FF«-"P16R6U16L2D7L2U7L2" 

310 B8»-"D28R13E4U21H4L131H*4,4R6F3D1 

503L6U20" 

320 H«""R21D6L9D12B9L16E6R9E6U9L9U6R3 

338 I»=-R24H6L10B16R16F6L36U6R11U16L1 

10i" 

340 PRESE7(53,13),14;DRAUA»:DRAW"flM+8 

,8"»J» 

350 DRAW"BM+15,-16"+C*:DRAW"BM+15,-3" 

♦ JJ» 

360 DRAir8n»16,3"*D»:DRAW"B"*26,e"*E» 

:DRA«"8H*15, -6"*F«:DRAU"BI1*19,e"*C» 

370 IFDE-1THENPRESET(81,161),14:BOT03 

90 

388 DRAW"BM+19,7"+B*:»RAW"8«+8,-3"+FF 

l:PRESET(88,162>,14 

390 BRAWH»:BRAW"BM»28,3"»Jlt:»RAW"8N» 

28, -l"*G6»DRAW"BMt28, -5"-H» 

400 IFDE-1THENPE"B:60T0446SLSEPRESET( 

64, 12 >,l:C0LOR14:DE'l: 0070350 

410 ' 

420 'DARK-VADOR 

436 ' 

440 IFFIN-1THENX-56:V"136ELSEX-116:V- 

136 

450 PRESET(X,Y>,14:LINE-STEP(-25,6>:L 

INE-STEP<10, -40> 

460 CIRCLESTEP112,1>,12, ,.6,3,1 CIRCL 

ESTEP(15,-3>,3,,.S,2.6,1CJRCIESTEP(1 

5,31,12, ,.4,2.6,1 

470 LINESTEPdl, -5) -STEP (16,44) :LINE- 

STEP(-25,B> 

480 CIRCLESTEP(-1,6>,1:PRAU"S6B»-1,1G 

4L5H4" :CIRCLESTEP'< t l,-l),l 

498 DRAU"S6BM*2,1R1883L5H3" 

508 DRAU n 8M-l,-lR12":LINE-STEP(-3,-lS 

>:CIRCLESTEP(-4, -3), 4, ,3.3, .3, .8 

518 LINESTEP(-4,3)-STEP(-6,15):DRAW"8 

M*2,eiMB!1*2,-5D8BM*3,0U9B«*3,-lH0BM* 

2.6U3" 

520 DRAW"BM-2,-18U2":CIRCLESTEP(-4,-l 

>,3, , ,3.3:DRAW"BI1-3,1D2" 

530 CIRCLESTEP(-16,-21),18,,6,3.3,.7 

CIRCLESTEP(28,e),16,,6,3.3,.7 

540 CIRCLESTEP(6,3>,16,,3,,.4.CIRCLES 

TEP(-28,8),16, ,3, , .4 

350 LINESTEP(16,2)-STEP(2,8):LINESTEP 

(6,-9>-STEP<-2,9> 

560 CIRCLESTEP(9,1),11,,3.3,.1,.3:CIR 

CLESTEP<-22,0>,11, ,3.2, .1, .3 

570 LINESTEP<-1,26)-STEP(-12, -28) :LIN 

ESTEP<48,0)-STEP<-12,28) 

588 CIRCLESTEPC-24,-32),50,,1.5,2.8,4 

:CIRCLESTEP<24,B),30,,.3,i.7,4 

590 DRAW"S188M-l, -28L2H1L3G1L2S8BW.3, 

0»18S9B«.4,0U16" 

688 LINESTEP(1,64)-STEP(6,16)LINE-ST 

EP(7, -19) »RftW"L6" 

610 LINESTEP(-18,3>-STEP(-6,16>:LINE- 

STEP(-7,-19):DRAW"R6":IFFIN»17HEN3736 




620 PRESET (20,140) : C0L0R9 : PRINTU , " - J 

OVSTICK "; :C0L0R3:PRINT#1, "-> -CL 

AVIER" 

638 JOV»0:TIME"0 

640 IFSTICK(0)"7ORSTICK(1)"7THENPRESE 

T(146,146):C0L0R1:PRINT«1, "->" : PRESET 

(188,146>:C0LOR7:PRINT«l, "<-": JOV-1 

630 IFST1CK(8)"30RSTICK(1)"3THENPRESE 

T< 108, 140) :C0L0R1:PRINT«1, ■<-" : PRESET 

(148,14fl):C0L0R7:PRINT#l,"->":J0V-6 

660 IFSTRIG(6)--10RSTRIG(1)--1THENSTR 

IB(8)OFF;STRIO(l>0FF:B0T0668 

670 IFTH1E>5B6TH£NV"3:F0RI"1T015:A*=S 

TR»(I) : V"V»1:C»"STRI(V) :B»-"V"tA»t"02 

L".C**"AG":PLAVBf:NEXT:TIME.8:G0T0648 

ELSE60T064B 

68B PRESET(28,146):C0L0R1:PRINT#1,"-J 

OVSTICK <- -> -CLAVIER" : PRESET ( 88, 14 

8>:C0L0R7:PRINTI1, "-UN INSTANT.. . " 

696 FORO-1T07:A»«"0"»STR«(0):PLAVA»*" 

V15C64D64C64D64A64":NEXT:A1.«5:A2"3:X = 

186: V"16 

768 IFBE"lTHENtE.0:CLS:8OTO1460 

710 ' 

720 DEFINITION DES SPRITES -- 

736 ' 

746 FORK"BT06:FORJ"1T04:A*»"":FORI-1T 

08:READA:A$-Af+CHR*(A):NEXT:A$(J)«A« 

NEXT 

756 SPRITE«<K)-AKl>*A«<2)tA«<3)tA»(4 

>:NEXT 

766 F0RI-28T043:8«- F0RJ-1T08 : RE AHA 

:AI-AI+CHR«(A):NEXT:8PRITE*(I)-A*:NEX 

T 

776 ' 

786 'NAVETTE DE COTE 

798 ' 

888 D6TA1, 1,1, 3, 3, 7, 3, 1,13, 13, 3, 3, 3,1 

,1,8,128,192,224,248,248,248,224,192, 

248, 246, 248, 224, 192, 192, 128,0 

618 ' 

626 'POSEE 

846 HAT A6, 4, 4,4<4.8, 9, 7,16,7,5,5,6,6, 

8,0 

856 PATA12B,144,144,144,144,136,72,24 

8,48,248,288,286,8,0,0,0 

860 ' 

876 'BE FACE 

888 ' 

898 DATA6, 8, 6, 8, 6, 6, 1,7, 16, 7, 5, 9, 16, 3 

2,64,8 

988 DATA128,128,128,128,128,128,64,24 

8,48,248,288,288,132,2,1,8 

918 ' 

928 'CHASSEUR X 

936 ' 

948 DATA8, 6, 6, 6, 8, 6, 8, 128, 255, 128, 8, 8 

,8,8,8,6,8,8,6,8,8,8,3,7 

958 DATA255, 7, 1,8, 6, 6, 8, 6,8,6,6,8,8,1 

92, 35, 36, 251, 51, 59, 239, 3, 0,0,0 

960 DATA6,e,e,8,0,6,137,B9,191,153,18 

5,238,128,8,6,6,0,0,0,8,6,0,128,192 

970 tATA255,192,0,0,0,0,0,0,0,0,e,6,0 

,8,8,1,255,1,8,8,0,8,8,8 

986 ' 

998 'BOOSTEURS X 

1800 ' 

1010 DATA6, 6, 0,0, 0,8, 192, 192, 8, 192, 19 

2, 8,8,8,6,8 

1020 DATA8, 0,6, 6, 0,0, 6, 6, 0,6, 6, 0,0 ,8, 

0,8 

1836 ' 

1040 'CHASSEUR TIES 

1050 ' 

1060 DATA36, 66, 153, 231, 153, 66, 36, 0,12 

9,129,15 3,231,219,129,129,129 

1070 ' 

1088 'VAISSEAUX AMIRAUX 

1890 ' 

1188 DATAB, 0,0, 8, 0,0, 255, 0,0, 8, 0,0,0, 

127,255,63 

1110 DATA8, 0,0, 1,120, 255, 255, 255, 24, 2 

8,14,254,253,235,253,234 

1120 DATAB, 0,0, 8, 8, 3, 255, 1,8, 8, 0,12, 6 

,255,255,254 

1130 ' 

1140 "JEDI ET D2-R2 

1156 ' 

1160 DATA0, 0,8, 16, 56, 16, 16, 24, 8, 8,8,1 

6,56,16,40,40,0,0,0,0,28,24,24,20 

1170 ' 

1180 "3D. TIE 

1196 ' 

1268 DATA0, 0,0, 0,8, 8, 8, 8, 8,8,28,28, 28 

,28,0,0,66,66,90,126,90,66,66,0 

1210 ' 

1226 'CANONS 

1236 ' 

1240 PATA17, 56, 124, 252, 255, 126, 68, 195 

,136, 76, 62, 63, 255, 126, 60, 195 

1250 ' 

1260 'VISEUR 

1276 ' 

1286 DATA129,66,36,6,6,36,66,129 

1296 ' 



DATA0, 0,1, 134, 255, 135, 1,0, 0,0, 12 
, 255, 225, 128, 6, 6, B, 6, 24, 255, 24, 8, 



1378 ' 

1388 'BBMBES 

1396 ' 

I486 DATA12S,128,8,0,0,0,0,0 

141B N0I(1)""THIERRV":N0S(2)«" AGNES": 

N0»(3)'"VANNICK" : N0«<4 > ■ "CHRISTELLE " : 

N0»(5)'"BRI8ITTE" 

1428 A(1)«1328:A<2)=680:A(3)=>310:A(4) 

>430:A<5)-508 

1430 ' 

1448 DECORS JEU 

1458 ' 

1468 COLOR14,A1:SCREEN2:VA"1:ONINTERV 

AL-186G0SUB272B 

1476 IFA1-5THEN1528ELSESTRIB(J0V)0FF: 

COLOR14,l,l:VA«B:V4*2e6:V2=200: SCREEN 

2:BEEP 

I486 IFMA"1THENN1=1ELSEM1»0 

1496 INTERVALOFF:6OSUB1300:GOTO1516 

1388 A*-"V15T156O4F16R6P10F10R6DSG+20 

R688S + 28628F16D2":B*»"l/15T15e05F18R7D 

10FieR6D6G+2eR6686+28Q28F18P2":PLAVAS 

,8<:RETURN 

1518 80SUB4118 

1528 PSET (6,178), 13 :»RAU"S4R35" 

1536 CIRCLE(26,146),58,13,4.9,6.1,.6 

1546 CIRCLE<B6,146),5,13,1,3 

1550 PSET(84,144),13PRAW"F5R3" 

1568 CIRCLE(83,138>,48,13,5, , .3 

1576 CIRCLE(121,129),9,13,5.1,6 

1386 CIRCLE(168,136),38,13,3.3,3.7,.8 

1821 

1596 PSET<134,142),13 

1686 CIRCLE<152,125),25,13,4,4.5 

1618 PSETC148,149),13:DRAU"F3" 

1626 CI RCLE< 165, 149), 15, 13, 3. 3, 5. 5,. 8 

1636 PSET (176,156 ), 13; BRAH " C13F6R3" 

1648 CIRCLE(193,165),28,13,3,5,3 

1658 PSET(195,183),13:»RAWL153U15" 

1668 LINE(62,164)-(178,1B3),13,BFPAI 

NT(146, 158), 13 

1676 CIRCLE(121, 129), 9,15,5. 1,6 

1688 CIRCLE(16e,138),38,15,3.3,3.7,.8 

1690 PSET(127,139),15 

1766 LINE (46, 179) -(183, 182), 14, BF 

1716 LINE(48,155) -(42 , 179) , 14 , BF 

1728 LINE(6,183)-(288, 192),12,8F 

1738 PSET(8,lS2),12:t>RAW"R39U28R5" 

1748 CIRCLE(43, 143) ,18,12,5,5.5 

1756 PSET(51,158),12:PRAU"E3U2H3":CIR 

CLE(44,141),14,12,8,1.6,2 

1766 PSET<43,126) I HR»H"C12L18H4 ■ 

1776 CIRCLE(13,115),12,12,5.6,.l 

1788 PSET(24,113),12:tRAH"BlL1885L2U3 

62U4H5"aiNE(6,138)-(38,192),12,BF:P« 

INT(18,128),12 

1798 PSET(184, 182), 12: BRAN" U3": CIRCLE 

(186, 176), 26, 12, 5, .6, .4 

1866 PSET(197,165),12:BRAU"U4E2" 

1816 CIRCLE(195,145),28,12,3,.3,.7 

1626 CIRCLE(225,136),16,12,3,3.8 

1836 CIRCLE(229,127),14,12,2,3.7 

1848 PSET(226,113),12:»RAU"C12R16" 

1830 CIRCLE(233,106),15,12,5,6,.4 

1860 PSET(248,107),12:BRAU"C12£3R4";L 

INE(223,117)-(235,192),12,BF:PAINT(25 

0, 110), 12 

1878 PSET(255,143),7:DRAU"L5D207H3L2G 

5P2S6L3B1L566L1B3F3G6L1583L5B2L3" 

1886 PS£T(255,146),7;DRAU"L3I>4G5P2S1L 

3U3G4L2L3G6G3L6D2F437L4D3L15G6L18U3" 

PAINT(255,147),7 

1896 PSET(5B,158),14:DRBW"F3R3L6":C0L 

0R6:DRAU"BM+1,1R5G1L4F1R3":IFA1-1THEN 

PSET(31,157),18:»RBU"G3E3R4F3L3H1L2B2 

LI" :PAINT(53,158),18 

1988 PSET(8,138),2:BRAW"R6F3B4G3P3F7" 

:CIRCLESTEP(7,9),10,2,5,3:DRAW"BM+1,1 

1G5F6R7F3" : PAINT(6, 131) , 2 

1910 F0RI=1T08STEP2CIRCLE(173,152),I 

,15 2: CIRCLE (176, 154), 1,14, , , . 1 : NE 

XT 

1920 F0RI=18T07STEP-1:CIRCLE(79,145), 

1,14,2. 3, . 2, .2 NEXT 

1930 F0RI=1T014STEP2:CIRCLE(183,122), 

I,15,,,.2:CIRCLE(106,123),I,14 IN 

EXT 

1940 F0RI"1T012STEP2:CIRCLE'. 93, 125), I 

,15 2 CIRCLE (96, 125), 1,14, , , . 1 : NEX 

T 

1950 IFA1=1THEN1970 

1960 CIRCLE(0,0).2e,18:PAINT(5,5),18' 

PSET(58,136),13 

1976 LINE(13 8,182)-(180,192),7,BF 

1980 LINE(130,1S2)-(180,185),1XBF 



PRAH"C9R20E2R2F2R 

2000 PSE7(92, 176), 1: DRAW "P2L1R2" 

2618 PSET(98,177),1:DPAU ,, »1" 

2628 PSET( 184, 176), 1: DRAW "B2L1R2": BEE 

P 

2838 IFA2»6THENA2=13 

2848 G0SUB2896: I FA2=13THENA2=8 

2050 GOTO2100 

2060 IFA2"13THENA2»0:RETURN 

2070 IF03»1THENA2-11: V2-193 

2080 IFA3*2THENA2=13: V2*193 

2090 CIRCLE(98,188),31,A2,.1,3.1,.9:P 

SETC73, 165) :C0L0RA2: DRAW "R50":PAINT(9 

0,155), A2 RETURN 

2100 LINE(96,1) -(185,8), 1,BF PSET(188 

,1) C0L0R14:PRINT»1, "POINTS: ";SC 

2118 PUTSPRITE8,(17,105),14,34 

2120 PUTSPRITE1, (226,104),14,35:N*="R 

1D1L1" 

2130 PUTSPRITE20,(75,163),9,3PUTSPRI 

TE21,ST£P(16,0),9,4:PUTSPRITE2£,STEP( 

16,0),9,5:PSETSTEP(-16,7),4:DRAWMI 

2140 PSETSTEP(0,2),4:DRAWM*PSETSTEP( 

13,-1),4:DRAWM«:PSETSTEP(0,-4),4:DRAW 

M$ 

2150 LINE(174,178)-(191,168),14,BF:LI 

NE(174,167)-(182,162),9:LINE-STEP<9,5 

),9:DRAW"L16":PAINT(163,165),9:PSET(1 

8T,166),9:DRAW"R1" 

2168 LINE (177, 171 )-(186, 173), 15, IF : LI 

NE(183,171)-<188,173),15,BF.PSET(174, 

178) : DRAWF5L1H1L1" 

2178 LINE(165,162)-(186,164),12,BF 

2180 IFH1-1THENH1-0:GOSUB4190:6OTO220 



2190 IFnA=0THEN2208ELSEGOSUS4178 

2288 IFA1«5THEN2226ELSEPUTSPRITE3,(14 

9,8),14,22:PUTSPRITE4,STEP(7,8),14,23 

:PUTSPRITE5,STEP(7,B),14,24 

2218 PUTSPRITE6,STEPC7,8>,14,25:PUTSP 

RITE18, <99,23),14,26:PUTSPRIT£19,STEP 

(7,6),14,27:G0T02388 

2226 PUTSPRITE3,(158,8),14,22:PUTSPRI 

TE4,STEP(7,8),14,23:PUTSPRITE5,STEP(7 

,6),14,24:PUTSPRITE6,STEP(7,8),14,25 

2236 A«-25FORC3=248TO180STEP-1:PUTSP 

RITE7,(C8,23),14,26,:PUTSPRITE8,STEP(7 

,6),14,27:F0RI»lT0fl:NEXT:A«A..3:NEXT 

2248 LINE(18,68)-(348,84),1,BF 

2258 PSET<15,73),1'C0L0R7:PRINTH, " - 

«AV THE »J :COL0R6:PRINT»l, "FORCE ",:C 

OLORT PRIN7#1,"BE WITH VOU -" 

22S8 FOR I=1TO600 NEXT: FORI >68T084 LIN 

E(18,I)-(256,I+1),5,8F:NEXT:V2'198 

2270 ' 

2288 '--- ROUTINE PRINCIPALE --- 

2298 ' 

2388 INTERUALON 

2318 X1=118:V1.5B:CI«21:PUTSPRITE2,(1 

18,58),9,36:STRIG(JOV)0NTIME"8:U-l 

2328 0NSTRIGG0SUB2528,2528 

2330 0NUG0SUB3186, 3198, 3216, 3238, 3258 

2348 IFVl>98THENVl=Vl-4 :G0TO2368 

2358 IFVK15THENVl = Vl + 4 

2366 PUTSPRITE2, (XI, VI), 6, 36 

2376 IFAl-5ANDTIBE>26eTHENTinE"6:G0SU 

B2698ELSEIFTIME>3888ANDA1=1THENG0SUB3 

448 

2386 0NN1S0SUB2738, 2748, 2758 

2398 0NSTICK(J0V)G0T02418, 2428, 2438, 2 

448,2458,2468,2478,2486 

2488 G0TO2338 

2410 V1=V1-4:GOTO2330 

2420 X1-X1*4:V1"V1-4:GOTO2330 

2430 X1»X1.4 :BOTO2330 

2448 X1*X1»4:V1»V1*4:G0T02338 

245B V1=V1+4:G0T02336 

2466 Xl=Xl-4: Vl=Vl+4 : 80T02338 

2476 X1-X1-4:80T02336 

2488 Xl»Xl-4 : V1=V1-4:BOTO2330 

2498 ' 

2588 '--- TIR --- 

2518 ' 

2528 LINE(24,185)-(Xl*3,Vlt5),14:LINE 

(226,164)-<Xlt3,Vlt5),14:LINE(24,185) 

-(XH-3,Vlt5),Al:LINE(226,184)-(Xl»3,V 

1+5), Al 

2538 F0RI31T050:S0UND9,15:S0UND7,I:NE 

XT :S0UND9,8 

2546 ' 

2558 ' VERIFICATION DU TIR 

2566 ' 

2570 IF(Xi+5>X)AND(Xl+5<X.8)AND(Vl+5> 

V)AND(V1+5<V*8)THE»GOTO2630 

2568 IF(Xlt5>XB+5)AND(Xl*5<X8*12)AND( 

Vl+5>V8+8)AND(Vl*5<V8tl4)THENPUTSPRIT 

E25, (8,193) :G0TO276G 

2596 IF(X1+5>X3)AND(X1+5<X3+B)AND(V1+ 

5>V3)AND(V1+3<V3*8)THENF7"X3:G7-V3H7 

= 1; 17 = 29 :SC=SC + S0:80SUB4288:G0T02648E 

LSERETURN 
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BIZARRE AUTANT 
QU'ETRANGE 

Bizarre de se retrouver dans un univers impitoyable a la suite 
d'une banaie promenade dans le desert. Etrange de se voir 
offrir ici hurt jeux pour le prix d'un... 

Frangois SCHNEIDER 



itaWE 



'6MA0K.O 




LISTING 1 



4335 P0KE36874, 188 :FORQ=1TO20: NEXT 
a - P0KE36874 , 1 35 : FORO= 1TO60 ■ NEXTQ ■ P 
OKE36874,0 

4548 P0KE4316+CE, 3 i NEXTT :P0KE4316+ 
OB:, 10 ! F0RT= 1 TO500 ! NEXT I CP=2 i PC=0 : B 
G«6:NH=10 

4545 HP=1:RH=1:PZ=0 
4550 IFMP=1THENP0KE36869, 192: PRINT 
"310T DE PRSSE?" IHPUTR*:IFfl*="HOP 
"THEN4900 

4600 P0KE36S69, l92:PRINT"3«r' :POKE3 
6879 . 107 : P0KE36374 , : P0KE36877 , 
4610 IFZP=35THENPRINT"WL EN MRRRE 
ET IL VOUSMSRUTE DESSUS flVEC RRGE 
" : OOTO7900 

4620 IFZP=25THENPRINT"V0US BEVE2 P 
HRTIRWiMIBSINON. . . " :ZP=35 
4630 IFZP=15THENPRINT"W«IL VOUS HI 
T DE PRRTIR":ZP=25 
4640 INPUTR*H*=MID*<fl*,l,3> 
4645 IFH*= " PRR " ORHI= "RET" THEN4800 
4630 I FH*= " BHT " 0RH*= " TAP " 0RH*= "FON 
"ORH*="COO"THEN4700 
4636 fi=l:B=3 

4657 OETV*:V$=MID*<flS,fl,S>:IFV*="G 
EG " 0RV*= " GER " THEN4730 

4658 IFV$=""THEN4660 

4659 R=p.+ 1G0T04657 

4660 GOTO4600 

4665 ML=!NT<RNDa>*50> + 130 

4700 PRIHT'TWSIL EST INSENSIBLE HU 

IBCOUP. ET D'UN PETIT HEOUP DE 
POING IL T'RMO" 

4705 PRIHT"i:HE" :FORT=1TO4000:HEXT 
4720 GOTO7900 

4730 PRINT"^JE SUIS OERRRD! " : PRINT 
"SOUE ME VOULEZ VOUS?" 
4732 INPUTR* : IFRtO"JE HE SRIS PRS 
"THENPRINT"S HUM..PRENEZ TOUJOURS 
BDETTE ftLEE":Cl=5 
4735 FORT=1TO50BB : NEXT : GOTO4S08 
4800 PRtNT":»" :P0KE36869, 192: POKES 
6879,25 

4810 PRINT"»,'OULEZ VOUS RLLER fl 
MDROITE OU fi GflUCHE" 
4820 GETP* 

4830 IFPS=",T"THENRS=0 : US=-1 : D=1 : G= 
2 : TD=0 : P0KE36869 .. 205 : TX= 1 '■ G0T04 150 
4840 !FP*="F"THENRS=2:IJS=-1 IK1G= 
1 : TD=1 : P0KE36869, 205 : GOT04 150 
4850 GOTO4820 

4900 TP=500:RRlHT"na.E BONHOMIE T' 
EHMEHE Wv'ERS UNEKSflLLE ..." 
4910 PRINT"WITTENBS 2 MINUTES 



SRPPUIS SHIFT/RUN STOP": STOP 

6020 PRINT":]" : POKE36873, 46 : P0KE363 

Sfi 192 

6030 PRINT"MTU TRTES...UNE BOMBE 

KBET TU T'ETEINTS" 
6040 GOTO7900 

6049 P0KE36869, 192 : PRINT":BLE MRRC 
HRNT TE DONNE JUNE OLflCEJ" 

6050 PRINT"«rrU Lfl GOUTES.ELLE EST 
■BONNE (IRIS TU SENS OUEM.QUE CHOSE 

6060 PRINT"»C'EST UN BON POUR UN " 

:PRINT"JCRDEHU" 

6070 PRINT"MTU RS LE CHOIX ENTRE: 

HH-DEUX PIECES D'OR M2I-UN NOUN 

OURS" 

6080 PRINT"W3]-UNE SURPRISE" 

6090 IHPUTfi 

6100 IFB=1ORR=2THENC1=R:GOT0373 

6110 IFR=3THENPRINT"XIC'EST UNE CLE 

E":C1=3:FORT=1TO2000:NEXT:GOTOS75 

6120 G0T0875 

6490 REM **COURSE#* 

6500 P0KE36869, 192:P0KE36879,25:PR 

INT"3»POUR COURIR RPPUIE M3UR + 

6505 FORT=1TO4080:GETR* 
6510 NEXT:PRINT"COURS! II!" 

6515 FORT=1TO200:GETR* 

6516 NEXT:PRINT":T:R.=3:TI*="000000 
" : S=0 ■ P0KE36869, 205 : NB=0 : B=0 

6320 GETBt 

6525 IFE*="+"THENR=fl+l 

6535 PRINT"H";TRBCR)"a":IFR>22THEN 
6550 

6536 NB=NB+1 I IFNB=3THENNE=G : B=B+1 i 
PRINT"3"iTflBCB)"E" 

6537 IFfl>10THENS=9:IFfl>16THENS=16: 
IFR>20THENS=19 

6540 IFR=ETHENU=VRLi;TI*> :P0KE36379 

,10:GOTO7900 

6543 PRINT"3"JTRBi:fi>"C" : fi*="" 

6345 GOTO6520 

6550 ON OP GOTO300B, 2000, 2350, 100 

7800 P0KE36869, 192 

7801 CQ=1 : R3=20 1 13=12 : P3=l : P4=l 1 03 
» 1 74 i P5=2 : T3=38 1 P6= 1 l P0KE36379 , 9 : P 
RINT":wrU TQMBES!" 

7802 E=0:T=0:M1=225:M2=15 

7810 P0KE36866,R3:P0KE36864, I3:P0K 
E36SS7, 03 : P0KE36S65, T3 : P0KE36874, PI 
1 :P0KE36878,M2 
7820 R3=R3-P3:IFR3<1THENP3=0 

7825 111=111-1 : IFMK130THEN!U=Ml+4 

7826 Jfl=JR+l : IFJfl=2THENJR=0 : 112=112- 
1 

7830 O3=O3-P3:IFO3<2THENP5=0 



7840 1 3= 1 3+P4 : 1 F 1 3;>30THENP4=0 
7850 T3=T3+P6:IFT3<:38THENP6=0 
7860 E=E+ 1 : I FE>22THENP0KE36866 , 22 : 
P0KE36864, 12:P0KE36867, 174:P0KE368 
65, 38 : GOTO 199 

7865 FORT=1TO10HEXT:M1=!11-1:POKE3 
6874,(11 : FORT=1TO10 : NEXT :N1=I11-1:P0 
KE36874,M1 

7866 FORT=1TO10 : NEXT :!11=Ml-l: POKES 
6874, Ml :FORT=1TO10:NEXT:!11=M1-1 :P0 
KE36374,M1 

7870 GOTO7310 

7900 P0KE36378 , 8 ; R2= 1 2 : 1 2=33 : V=0 : P 

2=1 : PRiNT"»«wro!Bin»i»ii»i»H-" ; "M i 

":CQ=1 

7910 P0KE36864,R2 

7930 R2=R2-P2 : P0KE36876 , R2+200 1 POK 

E36877,fl2+199 

7935 IFR2<9THENP2=-P2 

7940 IFR2315THENP2=-P2 

7950 V-V+l : IFV>250THENGOTO7990 

7955 GOTO7910 

7990 POKE36864,12:GOTO200 



LISTING 2 



5 P0KE36378,1S 

10 TP=500:PRINT":OT'UIS UN FOU RRRI 

VE JBD'QN NE SRIT OU" 

20 PRINT"WIL TE DONNE UNE EPEE IE 

T TE PREND EN DEFI WtlNSI COMMEN 

CE LE COM" 

30 PRINT"MBRT LE PLUS CON DU JEU" 

40 PRINT"NOTES EIEN:" 

50 PRINT"Wt , =EPEE VERS LEIHRUTIttDF 

=EPEE DROITEI»»ii»tISE=EPEE VERS 

LE BRS" 

60 PRINT"MBRRRE ESPRCE=RTTfiOUE" 

62 FORT= 1 TO30 : RERDR ; P0KE36874 , R : FO 

RI=1TO200:NEXTI:NEXTT 

65 PRINT"»POUR FRIRE PISSER LE SRN 

G,FROLEZ UNE DES VERRUES DU CLRVIE 

R .*MERCI* " 

68 GETH*:IFR*=""THEN68 

70 P0KE36869 , 205 ! P0KE36874 , 

80 PRINT'T]" :POKE214,10:PRINTTRE(8> 

"W1WH":PRINTTRE':8)"0liiP" 

90 PRINTTRBW'XWW" 

100 PR=-1 : RP=3 : DN=3 : LN=20 : DC=3 : ML= 

17FORT=1TO1000:NEXT 

110 fl$="R":GETfl$ 

120 IFR*= , 'V"THENLM=21 DN=1:P0KE36S 

76,250 

1 30 I FR*« " E " THENLM=22 I DN=2 ; P0KE368 

76,245 

1 40 I FR*= " F" THENLM=20 : DN=3 : P0KE368 



74,254 

150 fl*="R":GETR*:IFfi*=" "fiNBBCOBN 

THENPOKE214,10:PRINTTRB<9>"»()IIirrP 

MW":GOTO300 

160 POKE4096+274, LM : P0KE37888+274, 

0:POKE36876,0 

170 IFDNODCTHENP0KE214, 10:PRINTTR 

E< 10) "MIJIDOHiK" : FORT=1TO3000 : HEX 

T:GOTO510 

130 IFDN=1THEHDC=1 

190 IFDN=2THENDC=2 

200 IFDN=3THEHDC=3 

210 PR=PR+1 : IFPR=RPTHENPR=0:RP=INT 

<RND<l)*2) + l:DC=INT<:RND<i:'*3>+l:P0 

KE36876,240 

215 IFDC=1THENML=18 

220 IFDC=2THENML=19 

230 IFDC=3THENML=17 

240 P0KE4096+273 , ML I P0KE37888+273 , 

0:PGKE36876,0 

250 TP=TP-10:IFTP=200THENTP=210 

260 F0RT=1T0TP:NEXT 

270 GOTO110 

300 FORT= 1 TO5000 ■ NEXT I P0KE36869 , 1 9 

2:P0KE36879, 15 :PRINT"^«.E FOU EST 

MORT III" 

302 FORT= 1 TO50 : P0KE36876 , 25 1 i FOR I = 

1 TO30 : NEXT I : P0KE36876 , i NEXT 

310 F0RT=1T06:PRINT"W3TU RS GRBNE I 

! ! ! " : NEXT 

320 FORT=1TO4000NEXT 

323 INPUT"(3UEL EST TON NOM";X$ 

330 F0RT=1T012:PRINT"KSNIVE ";X*" I 

! ! ! " : NEXT 

340 FORT=1TO6000:NEXT 

350 POKE36867,0:STOP 

500 DRTR175, 175, 175,0, 175, 175, 175, 
0, 175,0, 175, 175,0,0, 187, 187,0, 183, 
0,183-183,0,175,0 

501 DRTR175, 175,0, 163,0, 175 

510 P0KE36S74,12S:P0KE36869, 192:PR 

INT":»UE'MRUVflIS"; :FORT=1TO200 : PRI 

NT"!"; :NEXT 

512 FORT=1TO5000: NEXT: PRINTER TE 

HON!! SI J'ETRIS WTO I, J 'ME CRCHERR 

IS! !":POKE36874,0 

520 PRINT"BSUR TR TONEE V'flURR S 

INSCRIS: TUE PRR UN «FOU DURRNT 

LE PRSSHGE" 

530 PRINT"»LE PLUS CON DU JEU! ! I" 

540 FORT=ITO700B : NEXT : FORT=1TO50 : P 

RINT"HR!HR!HO!HI!".; INEXT 

550 FORT= 1 TO4000 : NEXT I PR INT " WO , HO 

..JE FERRIS MIEUX:«D'ME TIRER!!" 

560 FORT=1TO4000 : NEXT : P0KE36867, 



THOMSON T07, 
TO7 70* 
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1090 ON Th GOSUB lim. 1206, 1300, 1408, 150 

0, 1609,1760,1800,1900, 10000, 10100, 10209, 

10300, 10400, 10500, 10600, 10700, 10800, 1090 

0, 11080, 11100, 11200, 11300, 11400, 11500, 11 

600, 11700, 11800, 11900, 12006, 12100, 12200, 

12360, 12400, 12500, 20000: H0=INT<3#RND)-M : 

GOTO110 

1095 ' N.l 

1100 CLS:X=£:Y=15:G=6iPO=9!GOSUB300iREST 

ORE1110 

1110 FQR1 = 1TO35!P>!=INT<320*PNC'>:PY=IN"K2 

4*RND>:PSET<PX,PY), INT <8*RNC0 : NEXT 

1128 DATH0, 16,26,20,6, 12,8,15, 10, 14, 14, 1 

5, 15.12,26,15,23, 10,26, 11,27,18,39,20,31 

,15,39, 17,35,13,39,14,100,0.0,0 

1138 READh,B,C,D! IF H=100THEN GOTO1150 

1148 BOXF';h,B;'-«:C,D)GP*(8),6:GOTO1130 

1150 B0XFai,7)-C15,8>GR*(14), l:B0XFt8, 1 

l)-<4, 13>GR*C14> 

1160 B0XF<36,9>-(39,1UGR*(14>:B0XF(£9,7 

)-C30,85GRttl4> 

1170 DATA!, 18, 7,11,9, 15, 13, 13,22, 11,27,1 

7,34,14,37,8,39,12, 100,0 

1180 READh,B:IF A=100THEN RETURN 

1190 PSETCA,9)GR*C13),3iGOTOllS0 

1195 ' N.2 ' 

1200 CLS:X=7!Y=1£!G=£:PO=15:GOSUB300:RE£ 

TORE1210 

1210 FORI=1TO35!PX=INT(320*PNDj:PY=INT(£ 

4#RND>!PSET<:PX,PY>, INT(S*RND. :NEXT 

1220 DATA0, 13,9,20, 10, 14,12,20,13, 18,24, 

20,25.8,28,20,29, 15,39,20. 100.0,0,0 

1230 READA,B,C,[>:IF A=180THEN GOTQ1250 

1240 BOXF(A,B)-(C,I>)GR»ae5,2:GOTO1230 

1250 BOXFC 11,7)-<15,8)GR*( 1 4 i . 1!B0XF(22, 

15>-<24,16>GR*a4) 

1260 BOXF(29,7>-C32,8JGR»a4>:80XF(36 J ll 

>-<38,12>GR*<14) 

1270 DATA2, 12,3,12, 14,6, 10, 13, 13. 15, 13, 1 

6,13,17,14,16,14, 17, 15, 17,23, 14,24.17,28 

,7,37,10,39,14,100,0 

1280 REAE>A,E!IF A=100THEN RETURN 

1290 PSET(A,B^GRf(13),3!GOTO1280 

1295 ' N.3 

1300 CLS:X=14! Y=12: G=6: P0=1 1 : GOSUB300: RE 

STORE1310 

1310 FORI = !T035:PX=INT(.328*RNlV>sPY = INT<2 

4*RND>!PSET(PX,PY>,INT<8*RND>!NEXT 

1320 DATA0, 11,8, 12,0, 13, 16,14,0,15, 18, 16 

,0,17,18,18,0,19,39,20,22. 17,39,18,24,14 

,39,16,100,8,0,0 

1330 REhDA,B,C,D! IF A=100THEN GOTO1350 

1340 BOXFCA,B>-f C, D )GR* C 1 6) , 6: GOTO1330 

1350 B0XF(7,7>-<1£,9)GR*(14), 1 iB0XFC29,9 

>-<34,13>GR*(14> 

1360 PSET<I6, 16)GR*<14) 

1370 DAT A3, 10,9,6,9, 12, 11, 16. 19, 18.23. 16 



.27, 13,28,13,28, 12,33,8,35, 13, 100,0 

1380 READA,B:IF A=100THEN RETURN 

1390 PSET>;A,B>GRt<13>,3:GOTO1380 

1395 ' N.4 

1400 CLSiX=12iY=13:G*4!PO=14:GOSUB30B:RE 

STORE1410 

1418 FORI = 1TO35!PX=INT';320*RND>:PY=INT<2 

4#RND>:PSET(PX,PY),IWT(8*RND)iNEXT 

1420 DATA8, 1 8, 39, 28, 8, 15, 7, 17, 8, 14, 16, 1 7 

, 17,6, 19, 17,21, 14,22, 17,23, 16.39, 17, 108, 



1430 READA,B,C,Dt IF 

1440 BOXF(A,B)-<C,D 

1450 BOXF(10,7>-<14 

7)-<25,12)GK*<14> 

1460 B0XF(32,9>-(33 

)GR*U4) 

1470 DATA2,14,7, 14, 

15,23,6,36,15,37,15 

,14,39,13, 100,0 

1480 READA.BS IF A=l 

1490 PSET<A,B)GR*a 

1495 ' N.5 

1500 CLS!X=29!Y=11 

STORE1510 

1510 F0RI=lT035tPX 

4*RND>:PSET<PX,PY> 

1528 DATA0,12,10, 18, 

18,19, 16,20,9,17,8 



A=100THEN GOTO1450 
>GR*(6>,4:GOTO1430 
8>GR*<:i4>, 1JB0XF<21, 

10)GR*(14):PSET<7,13 



G=6:PO=13:GOSUB300:RE 

INTC320*RND>:PY=INTt;2 
INT(8*PNCi>:NEXT 

19,39,20,16, 17,23, 
22,5,29, 18.39. 12. 100, 



1530 READA,B,C,D:IF A=100THEN G0T01558 

1540 BOXFCA,B)-<C,D)GR*<7>,6:GOTO1530 

1550 B0XFi;4,8)-C8,9>GR*<14>, 1:B0XF<£5, 10 

>-<£6,ll>GR*(14^ 

1560 PSET<21,13>GR*<14) 

1570 DATA5, 7,2, 11,11, 17, 1 1 , 18, 12, 18, 1 8, 1 

6,21,12,21,4,23, 16,24,17,24,18,25, 18,35, 

1 1, 100,0 

1580 READA,B:IF A=188THEN RETURN 

1590 PSET(A,B>GRf U3>, 3: GOTO1580 

1595 ' N.6 

1600 CLS:X=4i Y-13 J G=4i P0=14: GOSUB300: RES 

TORE1610 

1610 FORI=lTO35iPX=INT<320*RNCO:PY=INTC£ 

4#RWD>!PSET';PX,PY>, INTC8*RNI>l:NEXT 

1620 [>ATA0, 17,39,28,3, 14,36, 16,6, 11,33, 1 

3,18,9,29, 10,14,7,25,8,16,5,23,6,180,0,0 



1630 READA,B,C,D:I 

1640 BOXFi;A,B)-<C, 

1650 BDXF<3,6>-<4 

GR*C14) 

1660 PSETt34,6>GR* 

1670 CATA3,5,2. 16, 

-4,24,6.32. 10,34,5 

16, 100,0 

1680 PEADA,B: IF A= 

1690 PSET(A,B)GRt< 

1695 ' N.7 

1700 CLS:t;=25:Y=11 

STORE1710 

1710 F0RI=1T035JPX 

4*RN0?:PSET(PX,PY). 

1720 bATA0,9,4, 18, 

13, 12, 14, 18,18,15, 

4,32, 18,35,9,39. 18 

1730 REA[>A,B,C,D: I 

1740 BOXF' A,B>-CC. 

1750 B0XF(6,5)-C9, 



F A=100THEN GGTO1650 
D>GR*<23>,4:GOTO1630 
9)GR*<14), l:PSET(32,6) 

a4>:PSET(36,6>GR*U4? 
,10, 12,8,13,3, 19,4,20 
34,12,34,13,35,13,38, 

180THEN RETURN 
13>,3JGOTO1680 

G=6:PO=li:GOSUB300:RE 

INT(328*RND:':PY = INT<2 

INT<8*RND):NEXT 
0, 19,39,20,7, 14, 10, 13. 
21, 18.25, 12.26, 18,29, 1 
, 180,8,0,0 

F A=100THEN G0T01758 
D>CR*(22).6:GOTO1730 
6>GR*04>. i:B0XF<13. 7> 



-<21,13>GR*<14) 

1760 BOXF<£8,9)-<30,10>GR*<14) 

1770 0ATA2.8,6, 1 8, 10, 1 3, 14, 1 1 , 17, 18, £0, 6 

,23,18,27, 18,29.8,31, 13,39,8,100,0 

1780 PEADA,B:IF A=100THEN RETURN 

1790 PSET< A,B>GR*<13),3:GOTO1780 

1795 ' N.8 

1888 CLSiX=14i Y=9: G=6: PO- 13! GOSUB300: RES 

TORE1810 

1810 FORI = 1TO35!PX=INT<320*RNC'):PY=INTC£ 

4*RND >: PSET(PX,PY>, INT (8#RND>: NEXT 

1320 [■ATA0,4,2, 17,0, 18,39,20,3,6,5, 17, 13 

. 10. 15, 17, 16, 12, 18,17,19,14,21,17,22,8,2 

5,17.26, 16,32, 17,100,0,8,8 

1830 READA,B,C,DUF AM80THEN GOT01858 

1840 BOXF<A,B)-CC,D>GR*<11>,6:GOTO1830 

1850 BOXF(7,9)-C10, 11>GR*(14>, UB0XF<7, 1 

3>-<10, i7)GR*<14J 

1860 B0XF<27,12i-<29,13>GR*tl4) 

1870 DATA3,5.6, 1 7 . 9, 12, 1 0, 8, 12, 1 7, 16, 1 1 , 

21, 13,24,7,28,15,29,11,38,17,39,17,39, 16 

, 100,0 

1888 READA,BMF A=100THEN RETURN 

1890 PSETCA,B>GR*f 13), 3t GOTO1880 

1895 ' N.9 

1900 CLS:>!=18: Y = 14: GM: P0=16: GOSUB380: RE 

ST0RE1918 

1910 FORI=1T035:PX=INT(328*RND>!PY=INT<2 

4*RNDJ!PSET(PX,PY>, INT<8#RND) : NEXT 

1928 DATA0,9,2, 18,0, 19,39,20,9,15, 10,18, 

6, 13, 13,14,7, 11,12,12,9,9,10,10,18,15,21 

,18,29, 15,30,18,26,13,33,14,27, 11,32,12, 

29,9.30, 10,100,0,0,0 

1930 READA,B,C,D: IF A=100THEN GOTO1960 

1940 BOXFCA,B>-CC,D>GR*(12>,4:GOTO1930 

1960 B0XFi.'35,6>-<36,7)GR$<14>,l 

1970 DATA 1,8,3, 17,3, 18,4,18,7, 10,8, 18, 11 

, 10, 15,18,28,14,27, 18,28,18,28,17,28,10, 

29.8,33,12,38,18, 100,0 

1988 READA,B!IF A=100THEN RETURN 

1990 PSET(A,B>GR$<13),3:G0T01988 

1995 ' N.10 

10000 CLS: X=ll: Y=12! G=2s P0=14 : GOSUB300 : R 

ESTORE10010 

10010 FORI=1TO35:PX=INT<320*RND):PY=INT< 

24*RND?!PSET<PX,PY),INTt8#RND>:NEXT 

10020 DATA0, 11,7, 12,8, 18,39.20, 10, 15, 18, 

17,11, 13, 17, 14, 13, 11, 15, 12,21,15,29, 17,2 

2,13,28,14,24, 11,26,12,32, 11,39,12, 180,0 

,0,0 

10030 READA.B,C,[>: IF tt=100THEN GOTO10060 

10040 BOXFCA,B)-<C,C')GR$(15),2:GOTO10038 

10060 B0XF':i8,7)-<21,e>CR*<14>,l 

10870 DATA3, 17,6, 10, 10, 14, 13, 18. 18,14, 19 

.6. 19, 17.20, 17,23, 12,25, 10,35, 10,38, 17,3 

9, 17,39,16,108,8 

10080 READA,BUF A = 100THEN RETURN 

10090 PSET(A,B)GR*O3>,3:GOTO10838 

18095 ' N.ll 

10100 CLS: X=21 : Y=10: G=6= P0=18i GOSUB300: R 

ESTORE10110 

10110 FORf = lTO35:PX=INT(3£0#RND;<:PY = INT<. 

24#RND>:P£ET(PX,PY>,INT(S*RND>=NEXT 

10120 DATH0,20,39,20.8, 17, 12, 1 9, 1 1, 1 5, 15 

, 16. 14, 13, 18. 14, 17, 11,21, 12,27, 17,31, 19, 

180.0,0,0 

10130 READh,B,C,D:II ; ' A=100THEN GCTO10150 

10148 BOXFt:A,B)-':C,D'>GR*C£0>.,6:GDTO10130 

10158 B0XFa3.3.'-(19.9)GR*C14>. 1:60X^.26- 



9>-C33,16)GR*<U) 

10160 PSETC3, ll>GR*<i4) 

10170 DATA3, 18^5, 19, 6, 19, 7, 19, 7, 18, 13, 14 

, 14,7,20, 19,26. 19,27,15,27, 14,28, 15,31, 1 

5, 31, '3, 32, 9, 33, 9, 36, 15,37, 19,100,0 

10130 REHDA,B:IF A=100THEN RETURN 

10196 ■PSET<H,B>GPJi 13>,3:GOTO10180 

10195 ' N. 12 

10200 CL8:x=13[Y=l5iG=4iPO=ll:GQSUB300iR 

ESTORE10210 

10210 FDRI=lTO35:PX=lNr<320#RND>:PY=INT< 

24#RND>:PSET<PX,PY>, INT ( 8*RND) : NEXT 

10220 DHTA0,7,3, 18,0, 19,39,28,4,16, 17, 18 

,28,12,26, 18,27,15,32, 18,33,17,39, 13, 100 



10230 READA,B,C,D:IF 

10246 BOXFvA,B>-<C,D 

10258 B0XF<4,9>-<7,1 

15>GR*<14) 

10260 PSET(.31,9>GR*C 

)!PSET(36,9)GR*U4) 

10270 DATA2,6,6,8,6, 

,27, 14,23,14,33,9,36 

10280 READA,B: IF A=l 

10290 PSET(A,B)GR*(1 

10295 ' N.13 

10300 CLS:X=13tY=17 

ESTORE10310 

10310 FORI=1T035!PX 

24*RND):PSETCPX,PY>, 

10326 DATA0,5,6, 10,0 

13,10,20,15,33,12,39 



AM00THEN GOTO10250 
)GR*<9),4!GOTO18230 
0)GR*(I4J, 1JPSETC19, 

14):PSET<34,9>GR$(14 

15,19,18,24, 11,27,13 

8,37,16,100,0 
08THEN RETURN 
3),3:G0TO18288 

G-6iPO*12!GOSUB300:R 

INTC320*RND>iPY=INTt 

INT(8*RND>:NEXT 
11,2, 18,0,19,39,20, 
18,37,5,39, 11, 100,0 



1033Q READA,B,C,D! IF A=16BTHEN GOTD18350 
10346 BOXF(A,B>-fC,D)GR*(17^,6:GOTO16330 
18358 B0XC12, 16>-(26, 18 JGR*( 14), 1 
10360 PSET(23,S>GR*(M> 

10370 DATA2,4,6, 18, 11,18,15, 15, 19,9,24, 1 
5,26, 17,32,18,35, 11,36,11,36,10,39,4, 100 



10388 

10398 

10395 

10486 

ST0RE1 

10410 

24*RND 

10420 

3,21,1 

10430 

10440 

10450 

(14),1 

10466 

14), 1 

10470 

,100,: 

10430 

10490 

10495 

10500 

ST0RE1 

1051 

24*RND 

10520 

32,16 



READA,B:IF A-100THEN RETURN 

PSET(A,B)GR*C13),3:GOTO10380 

' N.14 

CLS:X=I4: Y=ll : G=l : P0=6: GOSUB300: RE 

0410 

FORI=lTO35:PX=INTC320*RND):PY=INTi 

PSETCPX,PY),INTC8*RN[)):NEXT 
DATA6,8,7, 13,8, 14,39,20, 11,12,26,1 
" 29,13,30,7,38,13,100,0,0,9 
REAOA,B,C,D:IF A=100THEN GOTO10458 
BOXF(A,B>-(C,D>GR*<:i), 1: GOTO 10430 
PSETC10, 12)GR*(14),l:PSET<18,7)GR* 

PSET(21,7)GR*tl4),l!PSETC25,7>GRS( 

PSET<;29,7>GP*(i4), 1 

DATA2,7,8, 13,19, 11,25,6,34,6,39,13 

READA,B:IF A-100THEN RETURN 
PSETf A, B)GR* U 3), 3: GOTO 10480 
' N.15 
CLS:X=33!Y=6!G=2:PO=18:GOSUB300:RE 

FORI=1TO35:PX=INT<3£0*RND):PY=INT( 

PSET<PX,PY), INTi;8*RND>!NEXT 
DATA0, 16,7,20,5.7,7.15,32,7,34,15, 
39,20,100,0,0,0 



Suite 



29 



SOUTH PACIFIC^ 



Ordre de mission au commandant du sous-marin atomique 
"South Pacific" : aneantissez les batiments ennemis au 
large des Philippines, en prenant garde aux torpilles, gre- 
nades sous-marines et autres avatars... 



Philippe COQUIN — 



IE Moi/ flops o 



SUITE DU 
N°139 




5520 IF C=F THEN GOSUB 6350 

5530 IF Z=F THEN GOSUB 6100 

5540 NEXT F 

5550 RETURN 

5610 IF Q1=N AND P1=B THEN GOTO 

5660 

5612 IF Oi»U AND P1=C THEN GOTO 

56S0 

5614 IF 01 = X RND P1 = Z THEN GOTO 

570" 



AND P2=6 THEN GOTO 



5615 RETURN 

5620 IF 02 =N 

5660 

56d2 IF 02='.' RND P2=G THEN GOTO 

56S0 

5624 IF 02=X RND P2=Z THEN GOTO 
5700 

5625 RETURN 

5630 IF Q3 = N AND P3=B THEN GOTO 

5660 

5632 IF P3 = C: RND 03=U THEN GOTO 

5680 

5634 IF G3=X RND P3=Z THEN GOTO 

5700 

5535 RETURN 

5640 IF 04=N RND P4=6 THEN GOTO 

5660 

5642 IF 04=U RND P4=C THEN GOTO 

5680 

5644 IF 04 = X AND P4=Z THEN GOTO 
5700 

5645 RETURN 
5660 PLOT N,B 
5665 LET 6=24 
5670 G05U6 4610 
5675 GOTO 5750 
5680 PLOT U.e 
5535 LET 0=24 
5690 G03UB 4710 
5595 GOTO 5750 
5700 PLOT X,Z 
5705 LET Z=24 
5710 GOSUB 4810 

5750 PRINT RT 19, 
BUT" 

5751 FOR F=0 TO 30 

5752 NEXT F 

5755 LET 500=500+ CEO-10) *20 
5760 PRINT RT 14,25:500 

5765 LET HH=HH+2 

5766 LET TT=TT+1 
5770 GOTO 5252 
6000 LET J=N-36 
6005 IF B=40 RND 

THEN G05UB 3000 
6010 IF 6=39 RND 

THEN G03UB 6020 
6015 IF B=3S RND 

THEN G0SU6 8040 
6020 IF 6=37 RND 

THEN GOSUB 8060 



6025 IF B=36 RND 

THEN G05UB 3030 
6027 LET U=N-33 
5030 IF B=35 RND 

THEN GOSUB 8100 
603:;. LET U=N-39 
6035 IF B=34 RND 

THEN GOSUB 8120 
6040 IF 6=33 RND N=49 THEN GOSUB 

8140 
6045 RETURN 
6050 LET J=U-36 
6055 IF 0=40 RND 

THEN GOSUB 8000 
6060 IF 0=39 RND 

THEN GOSUB 8020 
6065 IF 0=33 RND 

THEN GOSUB 8040 
6070 IF 0=37 RND 

THEN GOSUB 8060 
6075 IF C=36 RND 

THEN GOSUB 8060 
6078 LET U=U-33 
6080 IF 0=35 RND 

THEN GOSUB 8100 
6063 LET U=U-39 
63ES IF 0=34 AND 

THEN GOSUB S120 
6090 IF 0=33 AND U = 49 THEN GOSUB 

3140 
6096 RETURN 
6100 LET U=X-35 
6105 IF Z=40 RND 

THEN GOSUB 8000 
6110 IF Z=39 RND 

THEN GOSUB 8020 
6115 IF Z=38 RND 

THEN GOSUB 8040 



<N;.46 RND N<52> 
(N.-47 RND N<51) 



IU>44 RND V<:55i 

iV>44 RND U<55) 

<Ui4S RND U<54> 

<U>45 RND U<53> 

<U>46 RND U<52) 

<U>46 AND U<52) 

<V>47 RND U(51) 



7150 RETURN 

7160 FOR F=l 1 

7170 PRINT RT 

7180 NEXT F 

"~ PRINT RT 17,3 



S.U; ' 



iX>44 RND X<55) 

(X>44 AND X<55) 

(X>45 AND X<54> 

(X>45 AND 



53) 
IX>46 AND X<52) 

IX>46 AND X<52> 

(X>47 AND X<51) 



"BTORPILLE RU 



(N>44 AND N-.55I 
LN>44 RND N<551 
IN>45 RND N<S4) 
(N>45 AND N<53> 



6120 IF Z=37 RND 

THEN GOSUB 8060 
6125 IF Z=36 RND 

THEN GOSUB 8030 
6123 LET U=X-38 
5130 IF Z=35 RND 

THEN GOSUB 6100 
6133 LET U=X-39 
6140 IF Z=34 RND 

THEN GOSUB 6120 
6145 IF Z=33 RND X=49 THEN GOSUB 

3140 

6999 RETURN 

7000 IF NIU=-23 THEN RETURN 

7001 LET TR=0 
"" HIU=B THE . N PR INT AT 17 

IF NI'J=0 
T <RND«7)+3) 

7004 IF NIU=0 THEN LET D5=0 

7005 LET NIU=NIU-1 
7010 IF NIU=-1 THEN GOTO 7060 
7020 UNPLOT 11,41+NIU 
7050 RETURN 

7060 FOR F=5 TO 1 Slfip -1 
7070 PRINT RT F,9;' 
7080 NEXT F 

" 3INT RT 17,2; ' 



, . GOTO 713_ 
8000 PRINT RT 
8010 RETURN 
3020 PRINT RT 
3030 RETURN 
3040 PRINT RT 
8050 RETURN 
8060 PRINT RT 
8070 RETURN 
6:050 PRINT RT 
J";RT S.U; "W 
8090 RETURN 

PRINT RT 3,U + 1 
— ■■ "~ 5. 
3110 RETURN 

"~ PRINT RT 2,U+2, 

a- . " : R T 

S,U+1; 

8130 RET 

" PRINT RT 

3; " 

_ " , RT 
3150 RETURN 
3200 LET FT =20 
8202 LET TPS=INT ITPS/5) 

3205 GOSUB 8250 

3206 FOR F=0 TO 30 
8210 PRINT RT " 
N <<<";RT 17,3 

G 

8220 NEXT F 

3225 GOSUB 7000 

8227 PRINT RT 17 , 2; "■RETOUR 

BRSEB" 
8230 RETURN 




5 IF DS>=DB-6 THEN GOSUB 3700 

3430 IF DS=DB THEN GOSUB 8500 

3440 RETURN _ 

3505 IF TOR'. 1 10 THEN LET TOR=TOP 



3510 LET TPS=TP3+__ 

3512 IF TPS>200 THEN LET TPS=200 

8515 IF TPS>=2^00 THENPRINT AT 1 

6700 IF DS=DB-1 OR DS=DB-2 TH EN 

B *"",fiT 6, 9, TIT ■: , ',RT 6710 
;HBt-1 0;RT 7,9; " .... ■■ t " ; RT 8. 



;RT 



; AT 10,9; 

6705 IF DS=DB THEN GOTO 3730 
3710 IF DS=DB-3 up pS=DB-4 THEN 
PRINT RT 5, ll,"" 1 ""iflT 6,10i"» 



3715 IF 0S=D6-5 

PRINT RT 5,13; 

3720 RETURN 

8730 PR ' 

T 2,9 

1 RT L , _ 

8735 FOR 

8740 PRINT AT F,9; 

6745 NEXT F 

37E0 RETURN 

3802 FOR F=l TO 10 

6304 PRINT RT F,9; 




OP DS=DB-6 THEN 



8250 FOR 

3255 FAST 

3260 SLOU 

3265 NEXT F 

S267 PRINT RT 

3270 RETURN 

" PRINT RT 18,2, 



TO FT 



17,25;TPS, 



IF NIU=0 THEN RETURN 
3320 LET H=INT IRND*3) 
3325 IF HOI THEN RETURN 
8327 PRINT RT 13 ,2; "■■ALERTE 
NADESH' 

I H8=HB-IINT (RND*10)+li 
3330 LET H = INT IRND46I +1 
8340 LET TPS=TPS-INT lTPS/iH*ABS 

NI'J) ) 
3342 LET FT=22*NIU 
8345 GOTO 8250 

8400 IF HB.--22 RND NIUOHB THEN 
PRINT RT n =■ ■■■jaubiMW" HR.iti 




7090 GOTO 7020 

7100 IF NIU=0 THEN RETURN 

' PR INT RT 17, 



. T=0 THEN GOSUB 5292 

8403 IF NIUOH6 THEN LET DS=0 

8404 IF NIU=HB RND D5=DB THEN 
TO 8425 

6405 FOR F=l TO 10 _ 

3406 PRINT RT F , 9 , - WWlMMIliM ' ' 

8407 NEXT F 

8408 IF NIU=HB THEN GOTO 8420 

8409 LET DB=INT (RND45) +4 

8410 RETURN 



3840 INPUT K« 

8350 FOR F=l TO 4 

6360 IF SCO<MCFJ THEN NEXT 

8370 FOR N=4 TO F STEP -1 

8330 LET MlN + lj=MlN) 

8385 LET N» CN+1) =N* (N) 

8890 NEXT N 

8895 LET M CF) =500 

8900 LET N*1F) =K« 

— JNT RT 2,9; ' 

„. Fcl TO 5 
8915 PRINT AT F+3 , 9; F; HU , M i 
);" ";AT F+3,20;N»(F) 
6920 NEXT F 

6930 IF INKEY*="" THEN GOTO 893 
8940 GOTO 10 
8950 PRINT AT 13,2, "■ CGMMANDES 

H.S ■ 
6955 LET S=INT (RND*4) 
8957 IF 3=0 THEN LET SH=0 
8960 GOTO 1017 



JUNGLE 



FX 702 P 




Ecologistes qui revez d'un retour a la nature, essayez done 
de cueillir des noix de coco dans une jungle aussi 
inhospitaliere... 

Gregory BONDU 



Mode d'emploi : 

A I'aide du programme : 10 INP G$, entrez tout d'abord en memoire : 

G$ • "»", S$ = " ■■ YYY" ou S$ - " *iYYY". 

Le but du jeu consiste a ramasser un minimum de dix noix de coco (" ■ 
") par appui sur "C" et de les deposer dans le panier ("V") en appuyant 
egalement sur "C". Malheureusement, trois dangers vous guettent : 

- Les bananes (",") : sautez par dessus, sinon les noix de coco transpor- 
ters seront perdues dans votre chute. 

- Les corbeaux (",,"): il vous faudra sauter par dessus ou bien les trap- 
per. Vous devrez pour cela prendre le baton "/" en appuyant sur "/" et 
vous transformer ainsi en "E". Frappez alors le sinistra volatile par appui 
sur "/", sinon, plus de noix. 

- Le crocodile ("-, = , > ") : La seule solution est de deposer devant le 
monstre, un minimum de cinq noix en appuyant sur "SPC". Votre depfit 
sera indique par un "*". Si vous manquez de noix, hatez-vous d'aller 
en chercher dans le panier par "SPC", sinon... 

Deplacez-vous a droite par "6", a gauche par K", sautez de deux cases 
a droite par "*" et de meme a gauche par "J". 
Evitez de depasser les limltes du jeu ainsi que les arbres "YYY", sinon 
vous perdrez vos noix et votre baton (et parfois la vie...). 



5 h=iht (Ramnet 

5tR=B:P=e:Cl="' 
V":U=i6:V=i:H=8 

;:«:=e:¥=s:z=s 

19 R=i8:B$=*E"iH 
iE=8:F=8:L=8iH= 
e:J=6:K=e:S*=«* 

:T=5:e=8 
2B HflIT 8iPRT S«lC 
SP, 1?;H',CSR U;C 
11C3R SiESiCSR 

f;l»;csr hs", "i 

25 PRI CSR R;6t;cs 

r x;h*?csr r;8J 

1Z=Z+1 
38 It=KEV:IF KEY*" 

"IGSB 1S8 
35 IF M=" "!GSE 3 

78 
48 IFTiflilF FKU 1 

HEN 128 
53 IF (1=16; IF 11=16 

THEN 358 
68 IF 8=17; IF »=" 

C ,H=H*J:J=8UF 



Hil8 THEN 258 
86 IF fliliPRT "VOU 
S VOUS ETES ■)" 

noye mm LP, RI 

VIERE,";;60T0 4 
58 
98 IF fiilSJPRT "«0 
US ETES T0H8E " 
I'DflNS UN RBVIN 
; ";:60T0 458 

188 IF 8<T!T=RU=8: 
B$=V:U=16:H= 
W»:$=S$;t=flID 
(!,T);S*=J 

115 60T0 158 

129 IF 8*0 THEN 148 



P=P 



125 J=8:E=8i 

tie 

138 PRT "VOUS RVEZ 
BUSSE "i"SUR U 
NE BflHflHE" 

149 IF N=R! IF !S="C 

";.J=j+i;n=T*iNi 

(RflH»*(i)-T)) 
158 0=RBNt;IFO(,l; 
E$=",":0=T+INT 



SRflNi*!U-T)!;S3 

TO 175 
168 IF 0>.99;IF E=9 

?Q$="<":R=T:80T 

175 
178 IF 0>.94;U=SJ: 

F=INT i8flNI*5+U 

-5!tS0T0 28 
175 IF F=fl;6SB 328 
1S8 IF F*8;F=F-l;IF 
F<T+INT (R8HJ* 

5);F=8!L=8 
182 IF R*8l6SB 398 
185 SOTO 28 
198 IF It=T';R=H 

!RET 
218 IF »="*"!R=R+2 

i RET 
228 IF I«="J";fl=B-2 

:RET 
238 IF I$="6 ,fl=fltl 
148 RET 

258 IF m;R*='T 
258 PRT "VOUS RVEZ 

6B6NE EN";Zl" C 



8 PRT "ET N!S";K; 

" CORBERU"!R$;" 

- KNOK-OUT,"! 

275 fl=lE3-3*ZtK*58- 

P-(5-T)*lB6;PP,T 

"VOUS RVEZ'ifl; 

" PTS. "; 

277 IF fl>SS;PRT " * 
**RECOR.ti BRTTU; 
"ifli" PTS.***": 
SBC !STRT fl:END 

278 PRT "RECORD:"iS 
!!;"PTS.":ENti 

328 IFU=17;IF I$=" 

.'■";K=KtiiL=e;F= 

BtHRIT 5;FRT "C 
ORBEflU K.O!";RE 

335 J=e:RET 

359 IF »="/"; B$="E 
"rU=17;«="V" 

368 SOTO 158 

378 IF R=17!J=JtHiH 
=9: RET 

338 IF J=5;H$="*":X 



=R:7=J;PRT "CEP 
OT: ";Y;"HOIK OE 

coco";j=8 

385 RET 

398 IF V*6i$="-,=,< 
,! i0S=HI[K6-V,V) 
:R=R-l:V=V+l 

395 R=R+1 

488 IF R+LEN(6t!-2= 

s;H;x=8;'i'=e;o 
=8;R=e;V=l 

419 IF RtLEH(0$i-2= 
A; IF R+LEN!3$!- 
5ifl THEN 449 

428 IF R>13!V=liR=9 
:8=8 

438 RET 

448 PRT "LE CROCOOI 
LE VOUS "!"fl BI 
EN RPPRECIE,"; 

459 PRT "VOUS ETES 
NORTH !!!!"« 



2% 



CASSE-BRIQUES 



Manifestez intelligemment votre agressivit6 maladive, par 
une casse subtile et raffinee... 

Christophe VAILLANT 

Mode d'emploi : 

Effectuez une sauvegarde avant lancement {risque de plantage en cas 

d'erreur). Ce jeu en langage machine necessite le joystick (pardon, la 

manette) et com pone dix tableaux. 

- Vous disposez de dix balles et la vitesse de jeu augments a chaque 



- Appuyez sur ACTION pour relancer la partie a chaque nouvelle balle. 
Celle-ci partira toujours du mome endroit, mais dans une direction a cha- 
que fois differente. Les rebonds obeissent a certaines lois qu'il vous faut 
decouvrtr. 

- A la question finale, bougez le manche pour un reponse negative, ou 
appuyez sur ACTION pour une reponse positive. 

- Les briques de la premiere rangee valent un point, celtes de la seconde 
deux points, etc... 

- Les lettres en haut du tableau signiflent : 
"H" : high-score. 

"S" : score. 

"T" : tableau. 

"B" : nombre de balles. 




THOMSON M05 

VM4 




:> 



Witt AFFAf B 

t pes sf wm!/ 




989 CLS s LOCATES. 9, 0:EXEC35998: GOTO 17 



Bonne casse.. 



■ a********************** 

10 '•VAILLANT - CHRISTOPHEi 
20 '«*********«********•*** 
30 '* PRESENTE * 
40 'a********************** 
50 '■* CASSE - BRIQUE * 
60 '*********************** 
70 • *********************** 
80 ** INITIALISATION * 
90 '******************••*** 

1 90 CLEAR488, 35600 1 CLS i SCREEN, 6, 6 

110 PRINT. PRINTiCOLOR0:PRINT"PATIENCE , 

jE CHARGE LES CODES . . . "J LOCATED 0, 

128 FORI«0TO767:B=PEEKaHFC9E+I>iPOKEB<H9 

D08+I,BiNEXTI 

130 PQKEt,H£073.&H9C'SPOKE4H2074,*:H00:POKE 

iri£0?5, 1 

140 F0RI*eT07iREADCARliPOKEl.H9DM*8»33-S 

49-I,CARHNEXTI 

150 DATA8, 127, 127, (87* 0, 247, 247, 247 

160 rORI«0TO7iREADCAR2:POKE&H9O00+8*34-2 

49-I,CAR£iNEXTI 

170 DATA6, 127, 119, 127,0,247,247,247 

180 FORI«8TO7iREADCAR3iPQKEii:H9D0e+e*35~£ 

49-I,CAR3iNEXTI 

198 DATA8, 127, 1 1 1, 127, 8, 247, 247, 247 

200 FORI«8TO7iREADCAP4!POKE&:H9D08+8*36-£ 

49~I,CAR4INEXTI 

210 DATA8, 127, 123, 127,8,247,247,247 

220 FQRI-BTO7iREADCAR5tPQKE&H9DO0+8*37-£ 

49-1 1 C AR3i HE XT I 

238 DATA68, 126,255,255, 191,159,78,60 

£40 FORI-0TO7iREADCAR6.POKES:H9D80+8*38-£ 

49-I,CAR6iNEXTI 

250 DATA255, 255, 255, 153, 153, 255, 0, 8 

£60 F0RI-38581T038521:READItiPQKEI,VAL<:" 

SH" +i*>:ne>:ti 

£70 DATA56,61,69,6C,6C,6t,6E,74,£8,28,43 

, 68, 7£, 69, 73, 74, 6F, 70, 68, 65, 00 

£83 FOR[«38601TO38689!READI*iPQKEI.VAL<" 

&H" +IO-.NEXTI 

298 DATA58, 72, 65, 73, 65, 6E, 74, 65, 08 

300 FQRI-38701TO387£9aREADI*iPOKEI,VAL<" 

&H" +I*>:NEXTI 

310 DATA5£, 65. 61, 60.69,73, 65, 20,61,20,54 

,6F.75,6C,6F,6E,£0,6C 

3£0 DATA65, £8, 30 . 3 1 , £0, 38, 34, 2D, 38, 36, 80 

338 •*§********#******* 

348 '* PRESENTATION * 

359 •*#**************** 

369 FORI*350O1TO3544£:READI»!POKEI,VAL< ' 
&H" +I*MNEXTI 

370 EXEC3580UGOTO67O 

389 DATA86, 10, B7, £0,£B, 06. 1B,3F, 02, 06, 20 
,3F,02,C6,50,3F,O£ 

390 DATAC6, £0, 3F, 82, C6, 1 B, 3F, 82, C6, 60, 3? 
, 02. 06, IF, 3F, 82, 06, 40, 3V r 02, C6, 4A, 3F, 0£ 
480 DATA8E..96,64,BD,CE,£C,C6, 1F,,3F,0£,C6 
.4£,3F,0£,C6.50 

410 DATA3F, 0£. 8E, 96, C8, BD, CE, £C, C6, IF, 3F 

,8£ 

4£0 DATAC6, 58. 3F , 92. 06, 46. 3F, 02. 8E, 97, £C 

, BC'. CE. £C. 8fc. c9. B7. £9, £B,86, £1,B7, £8. 36 

430 DATA8E,00.8£, 10. 8E, 08. 88, 3F, 10,8E,00 

.01,3F,8E, 10,8E,90,0C 

449 DATA3F.0E,8E.80. 02, 3F,0E,8E. 00,04, 3F 
,10 

450 * 

460 DATA 19, 8E, 00. 08. 3F, 0E, BE, 80, 86, 3F, 8E 

.10.8E.90.0C 

479 DATA3F.8E. 18. SE, 08. 0A, 3F . 0E, SE, 08, 84 

.3F.8E 

489 DATA8E, 00, 8A, 1 0.. 8E, 00, 08, 3F, 10, 8E- 80 

.08.3F,0E.10,8E,09.9A,3F.9E.8E.90.0A,3F. 

0E 

499 DATA 1 0, 8E, 00, 0C, 3F, 0E, 8E, 08, 08, 3F, 8E 

. 8E, 00, 0C, 3F, 10, SE. 08, 8E. 3F, 0E, 1 0, 8E, 00. 

0A.3F.0E 

599 DATA8E. 08. 8C. 3F, 8E, 18,8E,00, 08, 3F, 0E 

.SE.08.8E,3F,0E.8E,00. 1S,3F, 1O,8E.08, 10, 

3F.0E 

510 DATA 10, 8E, 00. 0C, 3F, 0E, 9E, 88, 12,, 3F, 0E 

.8E,00, 10, 10,8E,OO,8A 

5£0 DATA3F, 18, 8E, 99, 12, 3F, 0E, 8E, 00, 16, 3F 

. 10 



530 DATA8E,80, 14,3F,0E,10,8E,O0,0C,3F,0E 

,8E,08,16,3F,0E 

540 DATA10,8E,00,08,3F,0E,8E,08, 14,3F,0E 

,10.8E 

550 DATA00,0A,3F,0E,8E,00, 18, 10,8E,00,0C 

,3F.1O,18,8E,00,08 

569 DATA3F,0E,8E,00, 1A,3F,0E, 18,8E,80,8A 

378 ' 

588 DATA3F,0E,8E,00, 18,3F,0E,8E,80, 1A, 10 

,8E,88,8C,3F,0E- 

590 OATA8E.08, 1C,3F.10, 10,8E,O0,08,3F,0E 

600 DATA8E,80, 20, 18, 8E, 80, 8C, 3F. 18, 18, 8E 

. 00. 08, 3F, 0E, 8E, 00, IE, 3F, OE, 10, SE, 00, OC, 

3F,9E 

618 DATA8E, 90, 28, 3F, flE, 8E, 88, IF, 18, SE, 80 

,0B,3F,8E,8E,ee,22, 18, BE, 88,88, 3F, 18, 18, 

8E,00,BC 

628 DATA3F, 8E, 8E, 88, 24, 3F, BE, 10, 8E, 88, 88 

, 3F . 9E, 8E, 88, 28, 3F, 18, 8E, 88, £6, 3F, BE, 1 8, 

8E,ee, ec 

630 DATA3F, 0E, 8E, 00, 28, 3F, 8E, 18, 8E, 88, 8A 

, 3F . 1 8, 8E, 00, 26, 3F, 8E, 39 

648 'MM*********** 

638 '* TABLEAU * 

668 '*************** 

678 FOR I "33998^363841 READ I*: POKE I, VAL<" 

1H" +I*>iNEXTI 

680 GQTQ926 

690 DATACC, 00, 00, FD. 9C, E8, 86, 81, 87, 20, 3A 

,B7,£0,3C,87,28,3D 

700 DATAB7, £0, 3F, CC, 29, D0, FD, 9C, C2, 86, 09 

,B7,9C,D6,CC,00,00 

710 DATAFD, 9C, DB, FD, 9C, B8, FD, 9C, BD, FD, 9C 

,C7,86,ee,B7,9C,Dl,87,9C,CC,C6, 1B,3F,82, 

C6,28 

728 DATA3F, 82, C6. 58, 3F, 82, C6, 28, 3F, 82, C6 

, 1 B, 3F, 02, C6, 68, 3F, 82, C6, 1 B, 3F, 62, C6, 43, 

3F,82 

738 DATA86, 48, 87, 28, 36, 8E, 88, 84, 10, 8E, 88 

,80,3F, 10,86, 3A,B7, 28,36, 8£, 88,85. 3F, 10, 

8E,O8,0E 

740 DATA3F,18,8E,80, 17,3F, 10. 8E. 80, £0, 3F 

, 10, 86, 53, B7, 28, 36 

758 DATA8E,80,8D,3F, 19, 86, 54, B7. £8, 36 

760 ' 

778 DATASE,80, 16, 3F, 18, 86, 42, B7, 28, 36, 8E 

,88, IF, 3F, 10,86,28 

730 DATAB7,20,2B,C6, IF, 3F,82, C6,48,3F, 82 

,06.46 

798 DATA3F,02,FC,9C,E8,BD,D8,3E,86,38,B7 

,£8,36,8E,88,8F 

888 DATA3F, 18,8E,80, 18, 3F, 18,8E,80, 18, 3F 

,8E,8E,88,£1 

818 DATA3F, 18, 8E,00, £3,3F,0E,86, 39,B7, 20 

. 36, 8E, 88, 24, 3F, 1 8, 86, 68, B7, 28, £B, 86, 7F, 

B7,28,36 

828 DATA8E, 88,81, 18,8E,88, 18, 3F, 18, 18, 8E 

,88.81.3F,8E,8E.88,28,3F,8E,10,8E,00, 18, 

3F,8E 

830 >- 

840 DATA86, 40, 87. £8. £B, 86, £4.67. 28, 36. 8E 
, 80, 02, 1 0, 8E, 00, 04, 3F, 10, 8E . 88, 27 . 3F, 0E 
858 DATA86, 50, B7,£0,£B, 86, 23, 87,20,36, 10 
, 8E, 08, 85, 3F, 10, 8E, 08, 02, 3F, 0E, 36, 30, B7. 

20,28 

868 DATA86,2£,B7,£8,36, 10. 3E,08.86, 3F, 19 

,8E.00,27,3F,0E 

870 DATA86,70,B7,£0,,£B,86,£1,B7.£0,36. 10 

.. SE, 80, 07, 3F, 1 8, 8E, 08, 8£, 3F, 8E 



890 DATA8E,00,0B, 10. 8E, 00, 8A, 86, 10 " • £0 

,2B,86,£5,B7,20,36 

908 DATA3F, 18, 8E, 88, OF, 18,9E,8B, 17,86, 20 

918 DATAB7,£0.£B,86.26,B7,£0,36,3F, S3- 39 

,01,3F,10,38,01,3F,10 

9£9 FORI=40058TO48071:READU:POKEI,VAL<" 

&H" +I*>tNEXTIiCOTO970 

930 DATA56, 6F, 75, 6C, 65, 7A, 2D, 76, 6F, 75, 73 

, £0. 72, 65, 6A, 6F, 75, 65, 72, £0, 3F, 00 

948 'it********** 

950 '* JEU * 

?60 '*********** 

970 F0RI=36385T03753£:READI*:POKEI,VAU" 

&H" +UMNEXTI 



1989 DATA8E,80,01,BF,9C,AE,BF,9C,B3,86,8 
8, 3F, 1C,£3,8E, 78,9C,AF,3F, 1C, £5, 87. 70, 9C 
,B4 

1919 DATA3F, 1C,£4,E3, BE, 9C, AE, 18, BE, 9C,B 

3, CE, 9C, A4, 36, 38, 8E, 88, 8B, 18, SE, 80, 0A, 36 

,30 

10£0 DATA8E.00,0F, 10,8E.80, 17.34,30,37,3 



1030 DATABF,9C,B8, 10,BF,9C,BD, 10,80,08, 1 

7 

1 048 DATA 18, 27, 02, DA, 86, 81 , B7, 9C, A3, A6, 4 

1,38,86, 18, BF,9C,C7 

1050 DATAB6,9C,C8.3F. 1 A. CI, 7F, 18,27, 01,0 

3 

I860 DATAC 1, 21, 10, 27, 01, 7£,C 1,22, 18,27,8 

1,81, CI, 23, 10,27,01 

1070 DATAA2,C1,24, 19, 27, 81, C3. A6, 41, 40, 3 

0,86 

1980 » 

1990 DATA86. 82. 87. 9C. AS, A6.43.31.A6.10.fi 
F,9C,C7,B6,9C,C8 

1100 DATA3F, 1A,C1,7F, 10, 27, 01, BC, CI, 26, 1 

0,27,01,86 

1110 DATAC 1,21, 10, 27,01,04, 01, 22, 10, 27,0 

£, 3D, 01, 23, 10, 27, 02, 43, CI, 24, 18,27,02,49 

, 86, 83,B7,9C,A8 

1120 DATAA6, 41,30, 86, 18,BF,9C, C7,B6, 9CC 

3,3F, 1A,C 1,26, 18, 27, 82, 42, CI, 21, 18,27.01 

,94.01,22 

1130 DATA10,27,0£,0D, CI, 23, 10, £7, 0£, 13,C 

1,24,18.27,82,19 

1148 ' 

1 150 DATA36, 30, 86, 10, B7, 28, £B, 86, 25, B7, £ 

8,36,3F, 18, BE, 9C,B8, 10, BE, 9C,BD, 86,20.67 

,28,36,3F, 18 

1169 DATAB7,9C,E5,35,38,86,88,3F, 10, CI, 8 

8,27,22,01,84,23,35 

1178 DATA8C,08,82,27, 19,30. IF, 86, 28, 87, £ 

0.2B 

1188 DATA86,£6,B7,£8.36.3F. 18,30,03,86,2 

0, B7, £8, 36, 3F, 18, 30, ID, 34, 30, 7A, 90, E5, B6 

,9C,E3,81,1E 

1190 DATA£6,C8,FC.9C,C2,83.00,01,£6,FB, 1 

6,FE,F2,8C,88,25 

1 200 DATA27, E4, 86, £8, B7, £8, 36, 3F, 1 6, 86, 2 

6 

1218 DATAB7,£8,36,3e,83,86,£8,B7,20,2B,3 

F, 18,38, IE, 28,C8 

12 28 ' 

1238 DATAA6, 43, 31, A6, A6.41 . 48, 38, 86, 19, B 
F,90,C7,B6,9C.C8.3F, 1A, CI, £1, £7, 4B, C 1, 22 
,27,47 

1249 DATACl,23,27,43,Ct,24,£7,3F,A6,4t,4 
0,39,86, 10,BF,9C,C7,B6,9C,C8,3F, 1A,C1,7F 
,27,35 

1250 DATAC1,£6,£7, 31, CI, 21, £7, 2D 

1268 DATAC 1,22, £7, 29, CI, 23, £7, £5, CI, £4, 2 
7,£1,A6,41,38,86,38,86.A6.43,40,31,A6 

1270 > 

1£80 DATAA6.41,40,A7,41,38.86,C6,38,3F, 1 
E, 16,FE,B9,86.04,B7. 9C,A8. 16,FE,CF 

1398 * 

1300 DATAA6. 41, 30, 86, A6, 43, 40, 31, A6, 16,0 
1,35 

1310 ' 

13£0 DATA31. 3F, 10, BF,9C, 07, B6, 9C, C8, 3F, 1 
A, CI, £2, 10,26,82, 7B, 31,21, 28, C9, 31, 3F, 10 

1330 DrtTAB6«9C.C3.3F,ltt.Cl.£3, 10, 27^FF^E 

B,31,22, 10,BF,9C,C7, B6.9C. C8. 3F, lfi. CI, 21 

, 10,26,02.3(4 

1340 U6T«31,3F,1«, FF.B2, 31, 3F, 10,BF,9C,C 

7, Bfc . 9C, C8, 3F, 1 A, C 1 , 24, 1 0, 27, FF . C4, 3 1 . 22 

,10,BF,9C,C7 

1350 E-ATftBe,9C,C8.3F. 1ft. CI, 22, 10,26,02,3 

8,31,3F. 16, FF, 7B. 31 . 21, 10. BF, 9C, C7,B6, 9C 

,C8,3F,1A 

1360 C'ftTftC1.23, 10. 26. 02. 27. 31. 3F, 16,FF,6 

5 

1370 ' 

1380 DATttft6.43.40,rt7, 43.31.w6.31.rt6.ft6, 4 

1,30,86,C6,3C 

1390 DftTft3F. IE, 16.FE.7E.CC.00.0I.F3.9CD 

B, FC',9C.DB 

1400 DSTS86, 20, B7, 20, 36, 3F, 10, 7C,9C.0l,B 

6, 9C, VI, 81, 98 

1410 C'ATftl0.27,09.E5,FC.9C,DB. 10.B3.9C.E 

0,23,24 

1420 C'rtTft86, 20, B7, 20, 2B, 36. 70, FF, 9C, »B, C 

6, IF,3F,02 

1430 DSTAC6, 49, 3F, 92, C6, 46, 3F, 92, FC, 9C, 

B.FD.9C.E0 

1440 MTOBC. D8. 3E, FE, 9C, flB, 37, 70, 36, 70, F 






F,9C,AB.86.£0,E7.£0.£B,C6, H , 3f ,0£. C6, 49 

,3F.0£ 

1450 DATAC6. 4F . 3F. 0£, FC, 90. DB. BD. D8, 3E, F 

E,9C,AB,37, 70, 7A 

1468 DATA9C, AS, 10.27, FF. 13, 7A. 9C, AS, 10, £ 

7. FF, 74, 7A, 9C, A8, 27, 2B, £0, £4 

1470 ' 

1480 DATACC, 80. 02. F3.9C,DB,FD,9C,DB, 16, F 

F,7E,CC,00,83,F3,9C,DB,FD,9C,DB, 16,FF,72 

,CC.80,84 

1498 DATAF3.9C, DB, FD,9C,DB. 16, FF, 66, At, 4 

3, 40,31. A6 

1500 ' 

1510 DATAA6,41,40,A7,41.38,86,A6,43. 40, A 
7,43,31,A6,06,3A,3F, IE, 16,FD,C1 

1528 * 

1538 DATA7A,9C,D6,B6,9C,D6,81,88, 10, £7,0 

8 88 . 86 20 

1548 DATAB7, 28, 2B.C6, IF, 3F.82, C6, 40, 3F, 

2,C6,64,3F,82 

1558 DATAF6,9C,D6,CB,30.3F,82,CC,FE,£0,S 

3,88,81,26,FB,86,£8,B7,£8,36,3F, 18,37,38 

,35,38 

1568 DATA3F, 10, 30. 01, 3F, 18, 30, 01, 3F, 18, 1 

6, FC, 68, 17,08,64 

1570 DATA86.00,E7,9C,D1,B6,9C,CC.4C,81,0 

A,27,4D 

1588 DATAB7, 90,00.86, 20. 87, £0. £8, C6, IF, 3 

F,82,C6,40,3F,0£,C6,5B,3F,82,F6,9C,CC.CB 

,30,3F,02 

1590 DATAFC, 90, C2, 83, 82, 58, FD, 90, C£, BE, 9 

CBS. 10, BE, 9C8D, 86,20, B7, £0.36. 3F. 10,37 

,30,35,38 

1600 DATA3F, 10,30, 01, 3F, 10, 30. 01, 3F, 10. I 

6, FB, BE, 17,88,74 

1618 DATA37, 30, 35, 38, 16, 08, 74, 17, 08, 60, 3 

7,38,35,38 

1620 DATA16,88,6A 

1638 ' 

1648 DATA86,38,B7,£0.3C,C6,35,3F,1E,C6,3 

8, 3F, IE, 06, 33, 3F, IE, 06, 38, 3F, IE, C6, 3 1, 3F 

, IE, 06,35, 3F, IE 

1650 DATAC6,31,3F. IE, 06, 38, 3F, IE, 86, 0£. 8 

7,£0,3F.C6,3A,3F, 1E.86, 01, 87, £0, 3F, C6. 31 

,3F, IE 

1660 DATA86,82,B7,20,3F,C6,3A,3F, IE, 06, 3 

8,3F,1E,C6,38 

1678 DATA3F,1E,C6,37,3F,1E,C6..38,3F, IE, 8 

6,01,87,28, 3C,B7,£0,3F, 39 

1680 DATA17,FF,A4, 17, FF, Al, 17, FF, 9E, 39, 1 

7,FF,9A, 17, FF, 97, 39 

1690 ' 

1700 DATAC6,0C,3F,02,86, 18,87, 28, £B, C6. 1 
F,3F,e2.C6.4A,3F.,02,Cfc,41,3F,02,8E,9C,'71 
,BD,CE,2C 

1710 * 

1728 DATA86,00..3F, 1C,£5, 05, CI, 08, £7. F6, 3 
9,C6,0C,3F,8£, 16, FA, 18 
1738 ' 

1749 DATA31,£i,16,FD,FC,3l,3F,16,FE,76,3 
1,3F,16,FE,7D,31,3F, 16,FE,84 

1750 -'********•*** 
1768 •* FIN i * 
1778 -'************ 

1788 FQRI=35501TO35669:READI*:POKEI,VAU 

"4.H" +I*>:NEXTI ' 

1790 CLSiLOCATE0,O,0:EXEC3550l:POKES:H£07 

3,252!POKE!.H2074,158:POKES;H£875,0:END 

1888 DATA86,83,87.20,2B.8E,90,9E, 10,8E,9 

8, 13,86,21 

1810 DATAB7,£0,36,3F. 10. 18. 8E.08, 0C, 3F,9 

E,SE,08,13,3F,0E 

1820 DATA8E,09.9F. 19. SE. 00, OF. 3F, 10,8E,0 

0, 1O,3F,10 

1830 DATA8E.00. 15. 19. 8E. 09, BC. 3F, 10, 10,8 

E,0O, 13,3F,0E,8E,90.19.3F, 19, 10. 8E, 90..0C 

,3F,8E 

1840 DATA8E,0O, IE, 10,8E,80, 13, 3F, 0E, 10. 8 

E,88,0C,3F,0E,7F,20,3E 

1350 DATACC, 00. 00. 83. 08, 8 1, 26, FB,CC, 80,0 

0, 83, 08. 81, 26, FB, 00,80,98, S3, 88, 81, £6, FB 

1868 DA'TA3F,86,8E,19,08,EC,84,44,56,E7,8 

1,30, 1F.8C,0F,90.26,F3,7A,20,3E,£6,EB 

1878 DATA86,4£,B7,£8,3E 

1880 DATA3F.06,8E, 19, 00. EC, 84, 44, 56, E7, 8 

1,30, IF. 80, OF. 00 

1898 DATA£6, F3. 7A, 20, 3E, 26, EB, 86, 30, B7, 2 

0,28,39 



THOMSON T07, 
T07 70 W 
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10530 READA,B,C,Di IF A=100THEN GOTO18550 

10540 BOXF<A,B>-CC,D)GR*<2),2:GOTO1053O 

10550 BOXt8,12>-C31,20>GR*C14),l 

10570 DATA3, 15,6,6,8, 1 1 , 9, 18, 9, 19, 10, 19, 

12, 12, 18, 12, 19,12,20, 12,21,12,13,19,26,1 

9,27,12,31,11,38,15,39,15,39, 14,108,0 

10580 READA.BiIF A-100THEN RETURN 

10590 PSETCA,B>GR*C13),3!GOTO10580 

10595 ' N.16 

10600 CLS<X=il!Y=12!G=4:PO=17:GOSUB300:R 

ESTORE10610 

10610 FORI = lTO35iPX=INT<320*RND>:PY=INT<: 

£4*RND):PSET<PX,PY>,INT(8*RND):NEXT 

106E0 DATA0,13,39,£0,6, 13, 13, 17, 15,15,24 

,17, 16, 13, £3, 14, 18, 10, £1, i£, 19, 8, £0,9, £6 

,13,33,17,100,8,8,8 

18630 READA,B,C,D:IF AM00THEN GOTO10650 

10640 BOXF<A,B)-(C,D>GR*C3),4:GOTO10630 

10650 BOX(0,5)-<3, 17)GR*C14), ltB0X<34,5) 

-t39,17>GR*C14), 1 



1066O PSET(1£,7>GR*(14>, 1 : PSET (£7, 6>GR*<: 

14>,l:PSET<30,6>GR$tl4),l 

10670 DATA2,5,3,5,4,5, 1, 16, 6, 1 1, 6, 12, 7. 1 

2,14,17, 17,12,20,7,24, 14,25,17,30,12,35, 

5,36,5,37,5,36,16, 100,0 

10630 READA,B:IF A=100THEN RETURN 

10690 PSET<A,B)GR*C13>,3:GOTOI0680 

10695 ' N.17 

10700 CLS:X=26!Y=14tG=£:PO=18.GOSUB300:R 

ESTORE10710 

10710 FORI = lTO35iPX*INTt3£0*RND>JPY»INT<: 

24*RND>:PSET<PX,PYJ, INT<8*RND> i NEXT 

10720 DATA0,9, 1,18,0, 19,39,20,2, 11,6, 14, 

23,15,29,18,33, 12,39, 18,100,0,0,0 

10730 READA,8,C,D!IF A=108THEN GOTO10750 

10748 BOXF(A,B)-CC,D>GR*C4),2:GOTO10730 

10750 B0XF(7,16)-<14, 17>GR*< 14), 1 IB0XC15 

, I3)-(22, 18>GR*(14) 

10768 B0XC38,8>-<32, 18)CR*( 14 ) : PSET<22, 7 

)GR*(14) 

10770 DATA1,8,4, 10,2,18,5,18,6, 18,6, 17, 1 

2,15,16,16,16,17,17,17,18,17,21, 17,18,13 

,£0,13,21,13,31, 17,31,8,36, 11, 100,0 

10780 READA,B*IF A-100THEN RETURN 

10790 PSET<A,B>GR«<13),3sGOTO10730 

10795 ' N.13 

1 0300 CLS:X=2:Y=1£:G=6:PO=13:GOSUB308!RE 

ST0RE18810 

10810 F0RI-=1T035:PX»INTC328*RND>:PY"=INT< 

24*RND):PSETi;PX,PY>,INTC8*RNDJ:NEXT 

10828 DATAO,13,6,18,0, 19, 39,£O,10,5, 12, 1 



6,1£, 17,27, 18, £7, 5, 29, 16, 19, 11,20, 16,33, 

13,39,18,100,0,0,0 

10830 READA,B,C,D:IF AM00THEN G0T018858 

10848 BOXF<A,B)-<C,D)GR*<5),6:GOTO10830 

10850 B0XFC17,7)-t££, 10)GR*(14),1 

10860 PSET(4,7)GR*U4) 

10870 DATA4,6,7, 18, 13, 15, 13, 16, 14, 16, 17, 

7,2£,7,£1,I6,24,16,£8, 17,28, 18,29, 18,36, 

1£, 100,0 

10889 READA,B:IF A=100THEN RETURN 

10890 PSET<A,B>GR*<13>,3iGOTO10880 
10895 ' N.19 

10900 CLS.X=£:Y=16:G=4tpO=12!GOSUB300:RE 

STORE10910 

18910 FORI = 1TQ35:PX=INT(320*RND>:PY=INT<: 

24*RND)iPSET(PX,PY),INTtB*RNO)JNEXT 

18920 DATA0, 17,39,20,9, 15,13, 16,7,13,12, 

14,7,8,8,12,21, 15,30,16,27,13,32, 14,31,8 

.32. 1 £ 100 

10930 READA,B,C,D!IF A=I08THEN GOTO10950 

10940 BOXF<A,e)-CC,D)GR*(£6),4!GOTO10930 

10950 B0XF<4,5>-<7,7)GR*C14),l:LINEC£2,8 

)-<25,8) 

10960 PSETC14,6)GR*C14):PSET<19,5)GR*<14 

>:PSET<38,18)GR*<14> 

10970 DATA6,5, 10, 12, 13,14,19,4,19,16,20, 

16,20,15,24,14,24,7,30,12,31,16,38,9,188 

,8 

10988 READA,B:IF A-100THEN RETURN 

10990 PSET<A,B)GR*(13),3!GOTO10980 

10993 ' N.20 



11000 CLS!X=35iY"17:G=2:PO=14:GOSUB390:R 

ESTORE11010 

11818 F0RI=1T035:PX=INTC328#RND):PY=INT< 

£4*RND):PSETCPX, PY), INT ( 8*RND >■ NEXT 

11820 DATA8, 18,39,20,3,8, 10,9,6,18,7, 17, 

15,8,17, 17, ££,3, 24, 17,29, 8, 36,9, 3£, 10, 33 

11030 READA^B,C,D:IF A=100THEN GOTO11050 
11040 BOXFCA,B)-<C,D>GR*<£9),£:GOTO11030 

11059 B0XF<9, 11>-C12, 16)GR*<14), 1 

11060 B0XF<27, U)-<30, 16>GR*C 14 ) : PSETH9 
,9?GR*<14> 

11070 DATA7,7,5, 16, 5, 17, 4, 17, 9, 1 0, 14, 1 7, 

17,7,19,17,21,17,23,7,31,17,31,7,35,7,39 

, 17,100,8 

11880 READA,B:IF A=10OTHEN RETURN 

11898 PSETCA,B>GR*(13>,3SG0T011888 

11895 ' N.21 

1 1100 CLS:X=35: Y=16:C=6!PO=13iGOSUB308 = R 

ESTORE11110 

11110 FORI=1TO35:PX=INTC320*RND>:PY=INT< 

24*RND>:PSET(PX,PY),INT(8*RND)iNEXT 

11120 DATA0, 17,39,28, 1 1, 15, £8, 16, 26, 13. £ 

8, 14, 18,5, 19, 11,20,5,30,6, 108.0,0,0 

11130 READA,B,C,D: IF AM00THEN G0T011I5O 



A SUIVRE... 
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ROMBO 



( -Hep.'t'AS om muscle 



COM 2 CfW^D, 



Pour acceder lui aussi au vedettariat, ROMBO, passable- 
ment envieux du succes de son c^bre cousin RAMBO, se 
risqua dans la traversee d'une grotte infernale... 



Didier RICHER 



SUITE DU 
N°139 



' .; AT 



v3 + 4 , St- 



5026 PRINT AT Y3+l,13, INK 7, PA 
PEP 5 , IIP.' 1 : ST Y3 + 1, 15, "B"; AT Y3 + 
1, 16, "M"> AT Y3+2, 13j ■■■■'; AT Y3 + 2 
,14, INK 5, PAPER ?; ft flFi JIT Y3+2, 
15. INK 0,"6",AT V3t5,16, INK 5, 
" l-iRT Y3+3.13," i".RT Y3+3,16, 

;; |;;.;RT ¥3H,i3i H ■ ,, j pit Y3+4,i6, 

5323 PRINT RT V3+5.13, INK Bj PR 
PER 7,, INK 5;" J";ftT Y3+S.16;" | 
"iftT Y3+6,13," I'ifiT Y3+6,16," | 
";RT Y3+7.13," ";RT Y3 + 7,14, INK 

0; PAPER 5,"B",AT Y3+7.16, INK 
7,'W)im Y3+7,17, INK 0, PAPER S 

5030 PRINT RT Y3,19, INK 1, BRIG 
HT XJ."fii ,, iflT Y3.81J PRPEP 1, BR I 
GHT 0, INK B^'B'^AT r'3,2£i INK 5 

, paper a; 



PRINT AT Y3 + 1, 19; INK 
HtH S; "■h " , RT Y3+2,19,"B 
T Y3 + 2,20.l INK 1, PAPER "■■ 



+2,19, "■ ■ ",R 

PAPER 5, "B", AT 

Y3+2,23, INK 5, PAPER 0,"A",AT 

3 + 3, 19, INK 1, ■■— — ■ 



";RT 



3 , 22 ; 



Y3+3,19, INK 

PAPER 5 ' " A 
50j4 PRINT RT Y3+4,19, INK 5, PA 
PER 7," 1";RT Y3+4,21, INK 0;"A 
';AT Y3+4,23, INK 5;"H",AT Y3 + 5, 
19, INK 7: PAPER S,"|^',AT Y3+5, 
22; "1 ";flT "y 3+6, 19; "l", AT Y3+6,2 
0. INK 1; PAPER 5,"Bl";RT Y3+6,2 

2; INK 7;"1";RT V3+6..23, INK 0, 
PAPER 6;"B W iftT Y3+7,19, INK 0, P 
APER 7, " B" 

5836 PRINT RT Y3,26, INK 1, BRIO 
HT l,"Bi",,AT Y3,28, PAPER 1; BRI 
GHT 0; INK B;"f fl ;HT Y3.29, INK 5 
, PAPER 0J."A" 

5033 PRINT AT Y3+1.25, INK 7,"B« 
1";RT Y3 + 1.2S; INK 7; PAPER 5; "A 
W ,AT Y3+1.29, INK 5, "l" , AT Y3 + 2, 
25, PAPER 7;" i",AT Y3+2,28;" ■ " 
;AT Y3+3.25;" |" j AT Y3+3.23;" I" 



, RT Y3+4 .25 

,RT V 3+5,25 

5040 PRINT RT Y3 +6,25,1 INK 

, RT Y3+6.26, PRPEP 5; INK 1, "B 

PAPER 7, "■ ";AT v3+6,29i PRPER 

5, INK (Si"W";fiT V3+7,25; PAPER 7 
f, ft B ., 

5100 GO SUB 1O0 

5110 LET P$=" 9 DIDIER RICHER 

1936" 
5120 FOR Fal TO LEN P$ PRINT IN 
K RND*6 + 1,AT 20,F,P*i.FJ ; IF P»iF 
JO" " THEN BEEP .005,20 
5125 NEXT F 

5127 LET PR=0; RESTORE 7000 
5130 GO SUB 7000 

5132 LET RR=PR + 1: IF INKEYJO"" 
OR PR =235 THEN GO TO 5140 
5135 GO TO 5130 
5140 LET IN=179: LET HS="7": LET 

D*="e" LET B* = "6" LET G$="5" i 

LET Tt = -' CUR5EUR5" 
5145 PAPER 0; BORDER 0: CL5 : GO 

sue 100 

5150 RE5T0RE 7000: PRINT RT 0,1; 
INK 6; INVERSE 1,"============= 

==================, at 9t& f l; ;>«* 

5160 'RESTORE ~7Q00 r _ FOR ~F=0~TO 21 
. PRINT RT F,0; INUERSE i; INK 6 
; "■"; AT F,31; "=": NEXT F 
5162 PRINT AT 1,13, INUERSE 1; I 

nk 6,;;=";flT l, 19; '■='■; AT 2,13;"== 

5170 PRINT RT 1,14, INK l;"C\]t\ 

5172 GO SUB 7000 

5175 PRINT RT 5,7; INK 2,;"1 CURS 

EUR3" 

5150 PRINT RT 7,7, INK 3; "2 INTE 

RFRCE II" 

5135 PRINT AT 9,7, INK *j "3 CURS 
OR .JOYSTICK 11 

5136 PRINT AT 11,7; INK 5j "-4. DEM 
ONSTRRTIGN" 

5187 PRINT AT 13,7; INK 7; "5 QUI 
TTER LE JEU" 

5190 PRINT AT 15,7; INK 6; "0 UOU 
ER UNE PRRTIE" 

5191 PRINT RT 16,7; INK 1;"«««»* 
= = = = z = cs3i=; = = = = ":RT 20, 7; "= = = = = = = 

* = = = = = = = = = = = ", RT 19,7;"*";AT 19, 

£5; '■='■ 




5192 PRINT RT 17,12; INK 2,"PAU5 
E: "; INK l; FLASH 1; "R" 
5195 LET MM = 

5200 LET MM=MM+1: GO SUB 7000: I 
F IWKeYf« - 'l" THEN LET Hi**'? 7 '; LE 
T INcl79: LET D*="3": LET Bi»"5," 
: LET m G*="5 m : LET T$=" CURSEUR 

5203 IF MM»S8« THEN RUN 7200 
5205 IF INKEY*="2" THEN LET IN = 1 
32: LET H*s ,, 0" : LET D$="7": LET 
64 = "8'-: LET G*="&" LET T$ = " INT 
ERFACE II 

5210 IF INKEY*="3" THEN LET IN = 1 
86: LET H* = ,, 0" : LET B*="6"; LET 
Ofw"l**J LET D$ = "8": LET T$ = "CUR5 
OR JOYSTICK" 

5212 IF INKEYi»"8" THEN GO TO S0 
00 

5213 IF INKEY*=" 

5214 IF INKEY*=" 
E USR O 

5217 PRINT AT 19,9, INK 4,T$ 
5220 GO TQS200^^ " 

7310 drtrT!^^B?R?7T^HPW 

2,3,0,3,2,3,3,5,4,5,0,5,4,5,3,5, 
4, 5, 0,5, 4, 5, 11, 5, 3, 5, 2,5,2,5, 11, 
5.3,5,2,5,2,5,12,7,5,7,3,7,5,7,1 
2,7,5,7,3,7,5,7 

7020 DRTR 15,3,7,3,3,3,7,3,15,8, 
7,8,3,8,7,3,14,6,4,6,2,6,4,6,14, 
6,4,6,2,6,4,6,14,7,6,7,2,7,5,7,1 
4,7,6,7,2,7,5,7,12,4,2,4,0,4,2,4 
, 12,4,2,4,0,4,2,4 

7030 DRTR 12,5, 4, 5, 0,5, 4, 12,5,4, 
5,0,5,10,5,3,5,2,5,3,5,10,5,3,5, 
2,5,3,5,10,7,5,7,3,7,5,7,10,7,5, 
7,3,7,5,7,3,7,5,7,3,7,5,7,8,7,5, 
7,3,7,5,7,3,2,0,2,-2,2,0,2,8,2,0 
,2,-2,2,0,2 

7040 DRTR 7,-2,-4,3,-2,-4,-2,7,- 
2,-4,-2,3,-2,-4,-2,5,0,-2,0,-3,0 
, -2,0,5,0,-2,0, -3,0, -2,0,5,2,0,2 
,-1,2,0,2,5,2,0,2,-1,2,0,2,5,2,0 
,2,-1,2,0,2,5,2,0,2,-1,2,0,2,3,0 
,-1,0,-5,0,-1,0,3,0,-1,-5,0,-1,0 
, 100 

7050 READ N: IF N=100 THEN RE5T0 
RE 7000: GO TO 7050 
7060 BEEP 0.2,N 
7070 RETUR"' 
7200 REM 



LET HISC=0: LET 

LET TA=1: LET 

002: LET X=0: G 

=12' GO SUB 499 



THEN LET 



7205 CL3 
7210 GO SUB 110 
5C=0: LET UIE=i 
G2=1020: GO SUB 

SUB 1000: LET 



7250 GO SUB 100: PRINT B0 .; AT 0,9 

1 INK 2. PAPER 1. FLASH 1: "DEMON 
5TRATI0N": GO SUB 110 

7251 FOR F=:0 TO 10: GO SUB G2: I 
F fNKEYjfci > " " THEN GO TO 5140 
7253 NEXT F 

7255 IF TR=5 THEN LET X=7. GO SU 

B G2 

7260 LET X=29: GO SUB G2 

7270 IF TR=9 THEN PRUSE 10: LET 

50=0: GO TO 5140 

7300 GO TO 7250 

74O0 STOP 

7500 REM 

7303 IF '. __ 

SC=SC+10: RETURN 

7505 IF UIE=3 RND 

SC=SC+20: RETURN 

7510 IF Uie<3 RND Tft<l THEN LET 

SC=SC+50: RETURN 

7515 IF UIE=3 AND TA.9 THEN LET 

3C=SC+100: RETURN 

7520 IF 'JIE<3 AND TR,-=9 THEN LET 

SC=SC+125; RETURN 
7525 IF UIE=3 RND Tfl>=9 THEN LET 

SC=SC+200: RETURN 
7530 IF UIE=4 RND TA>=9 THEN LET 

SC=SC+500: RETURN 
8001 CLS LET TA=1. LET UIE=3: 
GO SUB 5002: LET A=10: LET Yl=4. 
" LET Gl=4900: LET A 
LET Y=12: GO SUB 4 
990: GO SUB 1000 GO TO 4500 
:7-0O2 IF UIE<0 THEN GO TO 3000 
8003 GO SUB 100 

3004 PRINT 00; RT 0,0, INUERSE 1, 
INK 3; "=: = = = = = = a = = = = = = = = = = = = = = = = 

========", AT 1,0; INK 3;"=", AT 1 

,2, INK 2, INUERSE 0,">:", INK 1 
,UIE,AT 1,7, INK l,"Cde", INK 4, 
SCiAT 1,16; INK 7; ,, f'3h'-; INK 4,T 
A;AT 1,22, INK 2,"_£ab'-, INK 1, H 
ISC 

3005 PRINT ttOlAT 1,31; INK 3; IN 
UERSE 1-"=": GO SUB 110. RETURN 
9999 SAUE "ROMBO 1 LINE 5000 



AMSTRAD 

Suite de la page 4 



465 SYMBOL 200, 
102,24 

466 SYMBOL 201, 
, 189, 189, 189 

467 SYMBOL 202, 
,126 

468 SYMBOL 203, 
, 102, 102, 102 

469 SYMBOL 204, 
48,248 

470 SYMBOL 205, 
30, 13,3 

471 SYMBOL 206, 
,255,255,255 

472 SYMBOL 208, 


|»73 SYMBOL 209, 

475 SYMBOL 207, 
16, 16 

476 SYMBOL 210, 

477 SYMBOL 211, 



0,0,60, 126, 106,255, 

255,255,233, 189, 189 

189, 189, 60, 60, 60, 60 

102, 102, 102, 102, 102 

0,6,30,60, 120, ISO, 2 

248,248, 124, 126,62, 

255,255,255,255,255 

16, 16, 16, 16, 16,0,0, 

0,0, 120,8,8, 14,0,0 
16, 16, 16,254, 16, 16, 

0,32, 16,8, 16,8,4,0 
0,24,60,90, 126, 126 



473 SYMBOL 212,126,60,126,126,60,2 
55, 126, 24: SYMBOL 213,32,32,32,255, 
4,4,4, 255! SYMBOL 214 , 16, 30, 28, 30, 2 
8, 30, 16, 16! SYMBOL 215,16,16,16,124 
,68,68,68, 124 

479 C0M=0! EN=10O: AR»40:C0=0: 1=336: 
GOTO 700 

480 REM DESSIN DE LA PRESENTATION 
500 MODE 0: INK 1,Z4:INK 2,4:ZX-1 
510 FOR M»l TO 11 

515 pen i! paper 2:print chr«(209m 
:next 

520 FOR M=l TO 12:L0CATE i,M:PRINT 
CHR« 1 209 >: NEXT : FOR M=l TO li:PRIN 

t chr«(209) ( inextifor m»12 to 1 st 
ep-i:locate h,m:print chr»<209):n 

EXT 

530 INK 3,15MNK 4,6:INK S, 26: INK 
6,1B:INK 7,16!INK 8,10:INK 9,ii:in 
K 10,2 

535 PEN 3:PAPER 0:LOCATE 12,4:PRIN 
T "37":L0CATE 12,7!PRINT "20" 
540 PLOT 32, 176,3:DRAW 448,176,3:D 
RAU 448, . I 12,3: DRAW 32, 1 12, 3 ! DRAW 3 
2 , 1 76 , 3 

550 WINDOW HI, 2, 10 , 1 2 , 2 ! WINDOW *Z, 
3,13,16,17 

560 PLOT 448, 368,8: DRAW 448,240,8: 

DRAW 464, 224, 8! DRAW 480 , 240 , 8 : DRAW 

480,368,81 A=336!F0R M=l TO 5!PL0T 

43s,a,8:draw 448,a,8!pl0t 480, a, 8 
:draw 490, a,s: a=a-16:next 
570 plot 576, 384, 4: draw 576,256,4: 
plot 544, 320, 4! draw 608,320,4 

580 PAPER o:pen 9:L0CATE 17,5:PRIN 
T "0":LOCATE 19,l!PRINT H N":LOCATE 

20,5:PRINT -e n :locate 19,9:PRINT 
"S" 

590 PEN 6IPRINT **2, "UOUS yOYEZ!" 
600 PEN 5IPAPER 4:L0CATE 2,22:PRIN 
T "ENERGIE" ! LOCATE 2,24:PRINT "VIC 



time":locate 16,13:print "ail":loc 
ate 16,16:print " cruc .": locate 2,2 
o:print "BAT":locate io,2o:print ■ 
co n :locate 15,2i:print "corde":loc 
ate 13,22:print "%" 

605 LOCATE 15,19:PRINT -f-^ocate 

13,l:PRINT "ETA6E H 

610 PEN 11 PAPER O 

615 FOR M=256 TO 336:PL0T 458, M, 9: 

DRAW 475,M:NEXT M 

620 RETURN 

700 REM DEBUT 

702 INK 1,0: INK 2 , O : I NK 3,0:INK 0, 



705 MODE l:UINDOW Ml , 8, 15, 10, 7: PRI 

NT *tl,"9UEL ESTTON NOM.MORTEL 7" 

710 LOCATE 25,6:PRINT " PRESENTATI 

ON " 

720 FOR M-320 TO 336: PLOT 16.MIDRA 

W 336, M, li:NEXT 

730 FOR M-16 TO 336JPL0T M, 336, INT 
(1+3*RND) :DRAW 176,3B4:NEXT 

731 A»272 

732 FOR M=48 TO 80: PLOT M,320!DRAW 
M, 240, INT <1 + 3*RND) : PLOT A,320."DR 

AW A, 240: a»a+i:next 

740 FOR M=224 TO 24O:PL0T 32,M:DRA 

W 320, M, l: NEXT! FDR M=32 TO 320:PL0 

T M,224,INT<1+3*RND) : DRAW 176,216! 

NEXT 

745 FOR M-384 TO 608:PL0T M, 320, IN 

T(1+3*RND) !DRAW 496, 352: PLOT M.304 

:DRAW 496, 272: NEXT 

750 FOR M-112 TO 144:PL0T 48,112,1 

IDRAW 96,M:DRAW 464,M:PL0T 512, 144 

: DRAW 464,M:NEXT 

760 FOR M»64 TO 112:PL0T 512,96:DR 

AU 464,M,2:NEXT:F0R M-112 TO 144:P 

LOT 464,112:DKAW 512, M: NEXT: FOR M= 

96 TO 112IPL0T 464,M:DRAW 512,M:NE 

XT 

770 FOR M-64 TO 1 1 1 : PLOT 4B,M,3:DR 

AW 463,m:next:pen i: LOCATE 2,24:PR 

INT "AUTEUR : COUPEZ Chri»tDph«" 

780 LOCATE 15,20:PRINT " 

790 A«="AmItYvIlL»":A=25:F0R M-l T 

LEN (A*>:LOCATE A,14:PEN INTU+3 

*RND) : PRINT MID*(A*,M, 1> :A»A+1:NEX 

T 

800 A-360:F0R M-l TO 3:PL0T A, 19Z: 

DRAW A, 160:A-A+B:NEXT:PL0T 552,192 

:DRAW 584, 192: PLOT 552,160:DRAW 58 

4, 160 

305 INK 3,l:INK 2,2:INK 1,I1:R*="P 

P" 

810 locate 5,20:pen 2ipaper 3:prin 
t "ton nom :":locate is,2o:pen o:l 
ine input nom* 

820 a=iooo:for n-i to h:for m-i t 
q 500 step 20:s0und 1 , a-m, 2, 15! sou 
nd 2,a-m+20,2, 15:s0und 4,a-m+40,2, 
io:next m:a-a-5o:next n 

830 GOTO 1600 

999 END 

1000 REM DESSINS 

1010 PLOT 128,363,5: DRAW 288,368,5 



: DRAW 288, 272: DRAW 128,272:DRAW 64 
,224:DRAW 224,224:DRAW 224,320:DRA 
W 288, 368! PLOT 128, 272: DRAW 123,36 
3JDRAW 64,320:DRAU 64,224!PL0T 64, 
320: DRAW 224, 320! PLOT 224, 224: DRAW 

288,272 
1020 RETURN 
1200 REM 

1210 PLOT 128,224,5:DRAW 128,296:D 
RAU 176, 296: DRAW 1 76 , 224: RETURN 
1300 REM 

1310 PLOT 80,238,5:DRAW 80,304:DRA 
U 112,328:DRAU 112, 260: RETURN 
1400 REM 

1410 PLOT 192,272,5:DRAU 192,344:D 
RAU 240, 344: DRAW 240, 272: RETURN 
1500 REM 

1510 PLOT 240,238,5: DRAW 240, 304 :D 
RAU 272,333:DRAU 272, 260: RETURN 

1600 REM MAGASIN 

1602 IF GIRL-1 AND BOY-1 AND DIABL 

E-l THEN 15000 

1607 if zx*1 then r*-"ok" else r*= 

1610 ink 4,6: ink 5,26!m0de 0:paper 
4:pen 5:l0cate 6,2:print " 

■:locate 6,3:print h magasin: ■ 
:locate 6,4:print ■ b :bor 
der 

1620 paper o:pen 7:locate 3,6:prin 
T "VOUS AVEZ : f-:pen s: locate 

1,9: print "udus voulez acheter:": 
pen 9:l0cate 2,12:print "d de l'a 
il (5F)":pen io:locate 2,14:print 
"2) 1 crucifix (lof) ":locate 2,16: 
pen 3:print "3> 1 corde (20f)"!l0c 

ATE 2, 17JPEN 3 

1630 PRINT ' A) 1 BATTEME (4QF)»! 

LOCATE 2,19:PEN 7:PRINT " 3) 1 COM 

BINAISON (23 F- ) ■■ : PEN 5: LOC 

ATE 14,6:PRINT AR 

1640 PEN 10:L0CATE 2,22:PRINT " 6) 

ALLER DANS LA MAISON" 
1650 PLOT 1,248,4:DRAW 640,248:PL0 
T 64,296:DRAU 416, 296: A»-" " 
1660 A*=INKEY* 

1665 LOCATE 14,6:PEN 5:PRINT AR 
1670 IF A*<>"- THEN 1680 ELSE 1660 

16B0 SOUND 1,63, 10, 15:L0CATE 14,6: 

PRINT " 

1690 IF A*="l" THEN AIL=AIL+1 : AR=A 

R-5:G0T0 1760 

1700 IF A*="2" THEN CR=CR+1 : AR-AR- 

10:G0T0 1760 

1710 IF A*="3" THEN C0=C0+ 1 : AR=AR- 

20:G0T0 1760 

1720 IF A*»"4" THEN BAT-BAT+1 : AR»A 

R-40:G0T0 1760 

1730 IF A*-"5" THEN COM=COM+ 1 : AR=A 

R-25:G0T0 1760 

1740 IF A*-"6 H THEN E-l ! X-6: Y-l : PR 

INT "IIIIIIIIIIIIIIIIIIIIIIIIIIIII 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 

I-:GOTO 2000 

1750 GOTO 1660 



1760 IF AR<0 THEN PEN lO.'CLS.'LOCAT 
E 5,12:PRINT "PLUS ASSEZ {"-.FOR N- 
506 TO 700: SOUND 1 , N, 1 , 15: SOUND 2, 
N+10, 1, is:next N 
1765 IF AR<0 AND A«»"l" THEN AR»AR 

+s: ail=ail-i:goto 1600 

1770 IF AR<0 AND A*="2" THEN CR=CR 

-i: ar=ar+io:goto 1600 

1780 IF AR<0 AND A««"3" THEN CO-CO 

-i: ar-ar+4o:goto 1600 

1790 IF AR<0 AND A»-"4- THEN BAT=B 

AT-1 : AR=AR+40:G0T0 1600 

1300 IF AR<0 AND A«-"5" THEN COM-C 

0M-l:AR=AR+25:G0T0 1600 

18.10 GOTO 1660 

2000 REM 

2005 GOSUB 500 

2006 ZX-0 

2010 Q»«SAL« (E,X,Y):CLS HI: PEN 6 

2012 Q2S-0BJ* (E^X,Y):IF Q2»-»" TH 
EN 2017 

2013 IF B2S-"DI" OR Q2*-"ELI" OR Q 
2»-"J0" THEN 38000 

2017 GOSUB 1000 

2020 IF MID» (Q*,l,l)-"1" THEN GOS 

UB 1200 

2030 IF MID* (Q*,2,l)-"1" THEN GOS 

UB 1300 

2040 IF MID* (B*,3,l>-"1" THEN GOS 

UB 1400 

2050 IF MID* <Q*,4,1)«"1" THEN GOS 

UB 1300 

2060 INK 11,3 

2070 PAPER 0:PEN .11: LOCATE 12,2:PR 

INT E-l: LOCATE 15,14:PRINT AIL:LOC 

ATE 15,17!PRINT CR:LOCATE 16,22:PR 

INT CO:LOCATE 9,22:PRINT INT(EN):L 

OCATE 5,20:PRINT BAT:LOCATE 12, 20: 

PRINT COMfLOCATE 16,19:PRINT Aft:PA 

per 5: pen 4: locate 9, 24: print nom* 
: paper o:pen 3 

2075 border 0,0: plot 32, 176, 3: drau 
448, 176, 3! draw 448, 1 12, 3: drau 32, 

112, 3: DRAW 32, 176,3 

2080 IF OBJ* IE, X, Y) <>" " THEN 2270 

ELSE 2140 

2140 A*»INKEY*: A*=UPPER* ( A*) :R*="o 

k b :locate 9,22:print ■ ":locate 9 
,22:pen h:print int(EN>:pen o:for 

M-l TO 336:PL0T 458,M,0:DRAW 473, 

m,o:next m 

2141 GOSUB 33000 

2145 IF EN<»1 AND BAT>0 THEN BAT-B 
AT-l:EN-100:G0T0 2070 

2146 IF EN<-1 AND BAT-0 THEN 50000 

2147 IF K-272 AND COM>0 THEN COM" 
C0M-l:I-336:F0R M-236 TO 336:PL0T 

458,m:drau 475,m,io:next m:goto 20 

70 

2148 IF K-272 AND COM-0 THEN 5000 


2150 IF A*<>"" THEN CLS H2: SOUND 1 
, 1,10,15, 1, 1! GOTO 2160 ELSE 2140 
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120 REM & 

130 REM ANTILLE GABRIEL 

140 REM RTE DE BURZUAT no. 30 

150 REM 3960 SIERRE 

160 REM VALAIS / SUISSE 

170 REM 

180 REM cette arJresse pent vous rendre S 

ERVICE ! ! 

190 CALL CLEAR : : CALL SCREEN112) 

200 REM 

210 DISPLAY AT(8.0) a "******************* 



220 DISPLAY AT < 10.0):" 

E GABRIEL*" 

2.30 DISPLAY AT(12.C0a" 



#TI-99/4A & ANTILL 

* vous present 
ent *" 

240 DISPLAY AT U4. 0) a "**#*************** 
**********" 
250 GOSUB 2190 
260 DISPLAY AT <B. 0) ERASE ALL 
270 DISPLAY AT (11, 0)1" SUPER *H. 

R# " 

280 GQSUB 2190 

290 DISPLAY AT ( 1 1 . CO ERASE ALL 
300 DISPLAY AT(2.0> a "MODE D'EMPLOI" 
310 DISPLAY AT(4.0) a "MANETTE no. 2 POUR D 
ESSINER" 
320 DISPLAY AT(6„0) : "POINT PAR POINT. .EN 

MODE" 
330 DISPLAY AT IB, O) : "CLAVIER <1> APPELLE 

LE SPRITE" 
340 DISPLAY AT ( 10, 0) : "POUR DEPLACEMENT R 
APIDE MAIS" 

350 DISPLAY AT 1 12. 0) !" f ! ATTENTION aux LI 
MITES DE" 
360 DISPLAY AT ( 14, 0) : "L' ECRAN. <2> POINTE 

LE SPRITE" 
370 DISPLAY AT ( 16, O) a "BUR L'ECRAN a + & 
- N' paints" 

3B0 DISPLAY AT ( 18. 0) : "<3> POUR LE MODE M 
ULTICOLDRE" 

390 DISPLAY AT<20.0>i"et lea <4><5><6X7 
XB><9>" 

400 DISPLAY ATI22.0) : "FORMENT DES GEOMET 
RIES INCLUSES" 
410 GOSUBi 2190 

420 DISPLAY ATC2.0JERASE ALL 
430 DISPLAY AT<2.0) : "DANS LE PROGRAMME. L 
E <B><?>" 

440 DISPLAY AT (4. 0) : "SON r EN (FOR. .TO. .8 
TEP) , DONC" 
450 DISPLAY AT(6,0)a"IL FAUT PATIENTER I 

LEB" 

460 DISPLAY AT(B.O) : "AUTRES TENEZ LA TOU 

CHE SELDN" 

470 DISPLAY AT<10,0) : "VOTRE CHOIX M LE 

<FIRE>" 

480 DISPLAY AT ( 12, 0) : "CHANGE LEB COULEUR 

S DE " ol DISPLAY AT ( 14, 0) a "L" ECRAN ..." 

490 DISPLAY AT (16, 0) a "PART1CULARITE CHAQ 

UE CARAC -" :: DISPLAY AT (IB, 0) : "TERE *P 

OSES* EST RESPECTE" 

500 DISPLAY AT(20.0):"ET REDEFINI AVEC < 

N" OU N">" a a DISPLAY AT (22,0) a "LA TOUCH 

E 'M' VDUS MET EN " :: GOSUB 2190 

510 DISPLAY AT<2,0)ERASE ALL :: DISPLAY 

AT<2,0) i "MODE AUTDMATIOUE SOIT :" n DIG 

PLAY AT(4,0):"02 02 02 02 02 02" 

520 DISPLAY AT(6,0)l"+L +C -L -C +D 

-D " :j DISPLAY AT (8, 0) a "L-LIGNE. . C=COL 
ONNE. ,D=DIAGO-" ai DISPLAY AT ( 10, 0) : "NAL 
E.." 

530 DISPLAY AT ( 12, O) a "EXEMPLE : " :: DIS 
PLAY ATC14.0! : "01 00 01 00 00 01 " 
:: DISPLAY AT ( 16,0) a "REPRESENTE UN TRIAN 
GLE " 

540 DISPLAY AT ( IB, 0) : "POUR LES *DIAGONAL 
E5* IL FAUT" :: DISPLAY AT (20, 0) I "REPOND 
RE DEUX FOIS AU 'TI* . " 
550 DISPLAY AT(22,0)b"B ONNE* CHA 

N C E " : : DISPLAY AT (23, 0) : "<F> mot 1 
e compteur a zero" c: GOSUB 2190 
560 DISPLAY AT (1,0/ ERASE ALL 
570 CALL CLEAR : : CALL SCREEN(2) 
580 CALL MAGNIFYC2) 

590 FOR G«l TO 14 j: CALL COLOR (G, G+2, 1 ) 
: : NEXT G 
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600 CN=5S : : CP=40 : i C0=2 
610 P=32 a a PP=16 II PY=9.54 s: Pl=.54 
620 X = I7 i! Y=12 :: XX=X :: YY=Y 
630 XE=INT(X) 
640 YE=INT(Y) 
650 XC=INT( (X-XE)*B+1) 
660 VX=2"(4-4*(XC>4>-XC) 
670 X»=STR*(VX) 
680 YC=INT( <Y-YE)*B+1> 
690 CALL GCHARtYE, XE,CA) 
700 GOSUB 1680 
710 IF CA<>32 THEN BOO 
720 ! 

730 A*=RPT* ( "0" , 2*YC~2- < XC>4) ) 6X4 
740 CALL CHAR(CN,A*> 
750 CALL HCHARtYE, XE.CN) 
760 CN=CN+1 
770 ! 

780 IF CN=143 THEN 1120 
790 GOTO 900 
300 CALL CHARPAT<CA,AA») 
BIO CALL GCHARIYE, XE,PA) 
320 IF PA=CA THEN GOSUB- 1130 
B30 XA*=SEG*(AA*,2*YC-1-(XC>4>, 1) 
B40 IF ASC(XA«)<58 THEN V=VAL I XA*) ELSE V 
=ASC<XA*>-55 
850 V=V OR VX 

860 IF V<10 THEN X*=STR» (V) ELSE X*=CHR*i 
V+55) 

S70 A*=SEG*(AAS, 1 , 2*YC~2- ( XC>4) >S.X*S<SEG4 
(AA«,2*YC-(XC>4> , 16) 
S80 CALL CHAR(CA,At) 
B90 CALL HCHAR (YE, XE.CA) 

900 CALL KEY(2,ET,ST) b « CALL KEY(0,ETAT, 
STA! 

910 CALL J0YSTt2,DX,DY> 
920 DX=DX/P : a DY=-DY/P 
930 I 

940 IF X+DX<1 THEN 970 
950 IF X+DX>32 THEN 970 
960 X=X+DX : i RX=1.S 
970 IF Y+DYO THEN 1110 
9Rn TF V+T1V>74 THFN 1110 
990 Y-Y+DY ! s RY=1.5 

1000 IF ET=18 THEN C0UL=CDUL+1 a: CALL S 
CREEN(COUL) : .■ IF C0UL=16 THEN CDUL=1 
1010 IF ETAT=49 THEN GOSUB 1170 :: GOTO 
630 

1020 IF ETAT=51 THEN GOSUB 1250 
1030 IF ETAT=52 THEN A=A+PP :: YY=Y :: X 
X=X : : GDTO 2100 

1040 IF ETAT=53 THEN A=A+PP :: YY=Y :: X 
X=-X i! RX-.34 SB RY-.90 !i GOTO 2130 
1050 IF ETAT-56 THEN YY=Y !! XX=X I I RX= 
4 .■ s RY=5 s: GOSUB 1970 a: GOTO 630 
1060 IF ETAT=54 THEN A=A+PY a a YY=Y as X 
X«X ta RX«.9 ii RY-1,1 aa GOTO 2160 
1070 IF ETAT=57 THEN GOSUB 1770 
1080 IF ETAT=55 THEN A=A+PP :a YY=Y :: X 
X-X Ii GOTO 2070 

1090 IF ETAT=ASC("M")THEN YY=*Y :: XX=X : 
a GOSUB 2B30 ; : GOSUB 2250 
1095 IF ETAT=ASC("F")THEN 570 
1100 IF A>2*PI THEN 1110 ELSE 630 
1110 GOTO 630 
1120 GOTO 1120 
1130 ! 

1140 CALL CHARPATIPA.AA*) 
1150 IF CN-PA THEN CN=CN OR CN=PA-1 
1160 RETURN 

1170 CALL CHAR(CP, "OOOOOOBOOOOOOOOO") a a 
CALL SPRITE(#1,CP,4,YE*7.37,XE*7.73) 
1180 CALL J0YST(2,X1,V2) 
1190 CALL M0TI0N(#1,-Y2,X1) 
1200 CALL P0SITIQN<#1,YT,XS) 
1210 Y-INT(YT/B+SGN<Y/B-1) ) ! a X=INT(XS/8 
+.724) 

1220 CALL KEY(0,K7,STR> 

1230 IF K'7-50 THEN CALL LOCATE (#1 , YT, XS) 
a: CALL DELSPRITE (#1 ) e a RETURN 
1240 GOTO UBO 
1250 FOR G=0 TO 14 

1260 C0=C0+1 :a CALL COLDR (G, CO, 1 ) I J IF 
C0=16 THEN CO-2 
1270 NEXT f-i 
12B0 RETURN 
1290 ! 
1300 ! 
1310 • 
1320 ! 



LISS 



1380 ! 
1390 ! 

1400 REM 

1410 ! 

1420 ! 

1430 XE=INT(X) 

1440 YE=INT(Y> 

1450 XC=INT( <X-XE)*8+1) 

1460 VX=2" (4-4*tXC>4)-XC) 

1470 X*=STRt(VX) 

1480 YC*INT( (Y-YE)*B+1) 

1490 CALL GCHAR(YE, XE.CA) 

1500 GOSUB 16B0 

1510 IF CA032 THEN 1580 

1520 A»=RFTS("0",2*YC-2-(XC>4) )&X» 

1530 CALL CHAR(CN,A*> 

1540 CALL HCHARIYE, XE,CN) 

1550 CN^CN+1 

1560 IF CN=143 THEN 1780 

1570 GOTO 1680 

15B0 CALL CHARP 

1570 GOTO 16B0 

aAJOU 

2020 GOSUB 1430 

2030 IF CN=143 THEN 2060 

2040 NEXT I 

2050 GOTO 1990 

2060 RETURN 

2070 X=XX+RX*COS(A) 

20B0 Y=YY+RY#SIN(A) 

2090 QOTO 630 

2100 X"XX+RX*SIN(2*A) 

2110 Y=YY+RY*C0S[2*A) 

2120 GDTO 630 

2130 X=XX+RX*COS(A*PI/1BO+RX) 

2140 Y=YY+RY*SIN(A*PI/270+RYl 

1580 CALL CHARPATICA. AA*) 

1590 CALL GCHARtYE, XE. PA) 

1600 IF PA=CA THEN GOSUB 1730 

1610 XA*=SEG*(AA*,2*YC~1-(XC>4) , 1) 

1620 IF ASC(XA*)<58 THEN V=VAL ( XAt) ELSE 

V=ASC(XA*)-55 

1630 V=V OR VX 

1640 IF V<10 THEN XS=STR$ (V) ELSE X»=CHR* 



CV+! 



5) 



1650 A«=SEG*(AA*. 1 , 2*YC-2- ( XC>4) )&X«!-SE6 

t (AA*,2*YC-<XC>4> ,16) 

1660 CALL CHAR<CA,A*) 

1670 CALL HCHAR(YE,XE,CA) 

1680 IF X<2 OR X<3 THEN X=X+1 :: GOSUB 1 

740 

1690 IF X>31 OR X>30 THEN X=X-1 a: GOSUB 

1740 
1700 IF Y<2 OR Y<3 THEN Y-Y+l a a GOSUB 1 
740 
1710 IF Y>23 OR Y>22 THEN Y=Y--1 :: GOSUB 

1740 
1720 IF CN0143 THEN 1740 
1730 GOTO 1430 
1740 RETURN 

1750 CALL CHARPAT(PA,AA*) 
1760 IF CN=PA THEN CN=CN OR CN=PA-1 
1770 RETURN 
1780 RETURN 
1790 ! 
1B00 Pl=.34 
1B10 CN=0 : : CN=33 

1820 FOR 1=0 TO PI STEP .0025 II ! ROSACE 
1830 X=XX+(RX+P1)*C0S(I)*SIN(5*I) t a ! ROS 
ACE 

1840 Y=YY+(RY+P1)*SIN(I)*SIN(5*I) a a ! ROS 
ACE 
1850 ! 
I860 ! 
1B70 ! 
18B0 ! 
1B90 ! 

1900 GDSUB 1430 
1910 NEXT I 

1920 IF CN=143 THEN 1960 
1930 ! 
1940 ! 

1950 GOTO 1820 
1960 RETURN 
1970 Pl=.34 



19B0 CN=0 a a CN=33 

1990 FOR 1=0 TO 2*FT STEP .0045 

AJOU 

2000 Y=YY+RY*C0S(I)-3.6*SIN(I) : a 1LISSAJ 

OU 

2010 X=XX+RX*SIN(iO*I)-4.7#COStI> : t 'LIS 

2150 GOTO 630 

2160 XI=A*PI/1B0 a: Y=YY+RY*C05 (2*X I ) *C0 

EiCXI) 

2170 X=XX+RX*SIN(3*XI)*SIN(XI) 

2180 BOTO 630 

2190 REM 

2200 DISPLAY AT (24.0):" < 

ENTER > 

2210 CALL KEY (0,TU,STT) 

2220 IF STT=0 THEN 2190 

2230 IF TU=13 THEN RETURN 

2240 GOTO 2190 

2250 IF L1O0 THEN GOSUB 2340 

2260 IF C1O0 THEN GDSUB 2400 

2270 IF L2O0 THEN GOSUB 2460 

2280 IF C2O0 THEN GOSUB 2520 

2290 IF L3O0 THEN GOSUB 2580 

2300 IF C3O0 THEN GOSUB 2640 

2310 IF L4O0 THEN GOSUB 2700 

2320 IF C4O0 THEN GOSUB 2760 

2330 RETURN 

2340 YY-Y I I XX-X 

2350 FOR 1=0 TO LI STEP .25 

2360 Y=YY+I a a X=XX 

2370 GDSUB 1420 

23B0 NEXT I 

2390 RETURN 

2400 YY=Y a a XX = X 

2410 FOR 1=0 TO CI STEP .25 

2420 Y^YY : : X=XX+I 

2430 GOSUB 1420 

2440 NEXT I 

2450 RETURN 

2460 YY=Y a s XX=X 

2470 FDR 1=0 TO L2 STEP .25 

2480 X=XX a : Y=YY-I 

2490 GDSUB 1420 

2500 NEXT I 

2510 RETURN 

2520 YY=Y a a XX=X 

2530 FDR 1=0 TO C2 STEP .25 

2540 X=XX-I : a Y=YY 

2550 GOSUB 1420 

2560 NEXT I 

2570 RETURN 

2580 YY=Y a : XX-X 

2590 FOR 1=0 TO L3 STEP .25 

2600 Y=YY+I :: X=>XX+I 

2610 GOSUB 1420 

2620 NEXT I 

2630 RETURN 

2640 YY-Y :: XX=X 

2650 FOR 1=0 TO C3 STEP .25 

2660 X=XX-I a a Y=YY+I 

2670 GOSUB 1420 

2680 NEXT I 

2690 RETURN 

2700 YY«Y a : XX=X 

2710 FOR 1=0 TD L3 STEP .25 

2720 Y-YY-I : a X=XX-I 

2730 GOSUB 1420 

2740 NEXT I 

2750 RETURN 

2760 XX-X : : YY=Y. 

2770 FDR 1=0 TO D3 STEP .25 

27B0 X=XX+I a: Y=YY-I 

2790 GOSUB 1420 

2800 REM 

2810 NEXT I 

2B20 RETURN 

2B30 DISPLAY AT(24.0)a"02 02 02 02 

2 02" 

2B40 REM 

2B50 ACCEPT AT (24. 0) SIZE (-2) :L1 aa ACCEP 

T AT<24.5>SIZEC-2) aCl 

2860 ACCEPT AT (24, 9) SIZE (-2) a L2 :: ACCEP 

T AT(24,13)SIZE(-2):C2 

2870 ACCEPT AT (24, 17) SIZE (-2) : L3 a; ACCE 

PT AT(24,21)SIZE<-2)iC3 

2880 ACCEPT AT (24, 17) SIZE (-2) a L4 a! ACCE 

PT AT(24,21)SIZE(-2)iC4 

2B90 RETURN 
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IB REM ***************** 

20 REM * POKER 1984/35 * 

30 REM ***************** 

40 CLR ! P0KE332B1 - 1 ! POKE33230, : PRI 

NT":]"; : 

50 P0KE53272. (PEEK(53272)RHII240:!OR 

12 

60 P0KE33283 , 2 ; P0KE53282 . 1 P0KE532 

84,10 

70 L0*54272 ! Lfl=33248 : J*=" S" I F0RR=1 

TO40 ! Jt=.J*+CHR*( 32) I NEXT 

80 POKELR+23, 1 POKELR+29, 1 POKELH+ 

27 , S3 ■ POKELR+28, 255 i POKELfl+2 1 , 

90 POKELR+37 , 05 : P0KELH+3B , 7 

«":N«="«MniMR 

110 Jl*="i"+RIGHT*<:J*,405 
120 J2*-"l 

":j3*= n a"+RIGHT*<;j 



2*,40> 

130 Ri9*Ri** u mttmmmm r*H.EFT9<n 

, 4B > + " «r ■ s*« " wrnanai" 

140 B$=" HPPUVER SUR UNE TOUCHE PO 
UR CONTINUER. " 

150 DEFFNR<00)-INT<RNDCl)*00) + l:PR 
INTCHR*(8> 

160 P0KEL0+3, 3*16+10 :P0KEX+6, 7*16+ 
5 

170 rjOSUB27I'0:GOSUB2110 
180 OOSUB2370:rjOSUB2340:RJ=":» 9 OU 
EL EST VOTRE CAPITAL ? H IS 100000:8 
* FR. » 
190 GOSUB 1400 

200 Hf-"« < DE 1000 H 10000 FRH 
NCS ) "1 GOSUB 1 400 

210 GOSUB2230:GOSUB3730:UT-W1 
220 IFWT«000THENGOSUB14S0:GOTO180 
230 I FWT>10000THENOOSUB 1 470 ■ GOTO 1 8 


240 GOSUB3860ZT-10000 
230 PRINT"n"CHR*(142); :SYS49152:P0 
KE53272. C PEEK < 33272 5AND240) OR 12 
260 POKELfl+21 , 1 GOSUB2360 : G0SUB225 


270 PRINT" WBR"; :R*-" LES LIQUIDI 
TES DU CRSINO SONT DE ■ 
280 GOSUB3230:PRINTIf"S«"2T"ll FRRN 
CS " J 
290 IFZT<:2THENPRINT"HI "j 



300 PR[NT" wumiiin » im "; nt-" les vg 

TRES SONT DE : " I 

GOSUB3230 

310 PRiNTic "■■nnnnniin"UT"ii francs " 

; : IFWT<2THENPRINT"a» "; 

320 IFWTC-0THENGOSUB 1 300 1 G0SUB39 1 

i GOSUB2320 ! GOTO250 

330 IFZTO0THENGOSUB1500:GOSUB3910 

: GOTO2430 

340 RK-FNAt9)*10: IFAK>»WTTHENAK»FN 

HCWT> 

330 IFAK>-ZTTHENAK«FNH(ZT> 

360 GOSUB3900 : GOSUB2360 : PR INT J I > 1 3 

2*; 

370 PRINT" M ■ Lfl MISE EST 

DE"AK"ai FR. " 
380 PRINT"T'J2*;J1*; ; GOSUB 1070: CC- 

390 GOSUB3920 : IFHf-"O"QOTO420 

400 IFH*="N"GOTO3980 

410 GOTO390 

420 TT=TT+2*RK I M1»0 1 OOSUB2360 ■ OOSU 

B2400 

430 PRINTS*"IBBI"; :GOSUB1560: GOSUB 1 

430 

440 X=1625 : FORC-0TO4 : GOSUE3400 ! X=X 

+8: NEXT 

450 PRINT'TI"; : GOSUB 1 330 :FORC»0TO4: 

GOSUB3320 ■ NEXT 

460 GOSUB2360:R*="»ia* COMBIEN 



: GOSUB 



UN 
: GOSUB 



DE CARTES VOULEZ VOUS 

3250 

470 PRIN^'raH" ; :R$*"k 

NOMBRE DE A 4 
3250 

480GOSUB3920:IFH*""0"THENGOSUB150 
0:GOTO610 

490 NB»HSC<H*>-48: IFNBf!>=lRNDHB!i< 
=4GOTO510 
500 GOTO480 

3 1 GOSUB2360 : GOSUB 1 500 : FORM- 1 TONB 
X:FE=1979 

520 SOSUB2360: PRINT"*" M'% CHOISIS 
SEZ LE(S> NUMERO(S.'J S.V.P "J 

f;Jl*; 

530 GETH*:MM=l:W=15:Xl=-8:IFH*=""T 

HEN530 

540 NCM)=RSC(H*)-48 

550 IFNCM>>50RNCM><:iOR<N(f1)=N(MM)R 

NDMOMM)THENGOSUB1570 ! GOTO520 

360 MM=MM+1 : IFMM<:=5GOTO540 

370 P0KEFE+S*N<M>,8I iXl«Xl+8*l«M) i 

GOSUB2290 

580 GOSUB3330 ! NEXT : GOSUB2360 ' X= 1 62 

5: GOSUB 1560 

590 F0RM=1T0NBX:C=N(M>-1 :X=X+8*<C) 

:R«4+M)=fltC) :B<4+M>=B(C> :F<4+M)=F( 

C> 
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FILTRES 

SUITE DUN 139 



1350 indice*="1":G0SUB 3620:d=con 
do I indice*=="2" : GOSUB 3620 : c2-conda 
1380 k»-tr3/r1 )/<c2/<d +c2> ) :hdb»2 
0*L0G10CABS<k ) ) : r eq-r1 »r2/(r1 +r2) : 
f0«1/< <S8R<Bl»sSI»c3»ra«|)>«SI«PI) :q= 
1/<c1»c2*S0RCreq/(r3«c1»c2> ) ) 
1370 CL"S:Z0NE JO :PRINT"gain nomina 
I HO :",USING"*8a8.B8";k:PRINT"gai 
ti en continu H dB : " , USING" ,888 , 88 
8";hdb; IPRINT" d6":freq*»" Hs" 
1380 IF 10)1000 THEN IF 10)1000000 

THEN fO=fO/1000000:freq*«" MHz" E 
LSE f 0»f 0/10001 fr»q»«" kHz" 
1330 F'RINT"f requence de eoupure FO 

i",USING"888.8tm"if0j :PRINT freq* 
:PRINT"facteur cle quartite :",USI 
NG"+lt88.8B";q:r-r3:PRINT"l -en true 
+ est re litre a la masse par R = R3 

a ":r;CHR*<131> 
1400 LOCATE S4., SlPRINT CHR*(24>i" 

menu > LTA&l ";CHR*<24> 

1*10 IF' INKEY<60)O0 THEN 1410 ELS 
E saubX-1 :G0T0 70 
1*20 ' 

1430 '- -CHOIX BU FILTRE A CALCU 

LER 

14*0 ' 

1450 ELS 01 :saut.1X-0:LOCATE 81,20, 

4 1FRINT m,"0RDRE DU FILTRE "lLOCA 

TE 81,20,5:PRINT «1 ,STRING»( 15, "-" 

) :L0CATE 81,20,7 

1450 PRINT 81, "-second ordre":L0CA 

TE 81 ,20,B:PRINT 81 , " -troisieme or 

dre":LOCATE 81 ,20,3:PRINT 81, "-qua 

trieme ordre" :1.0CATE 81,10,16 

1470 PRINT 81, "changement de type 

1480 yX»7:yyX»yX:L0CATE 81,18,yX:f 

leche*«CHR*C216> I PRINT 81 , f I eche* 

1430 IF INKEY*-"" THEN 1490 

1500 IF INKEY<78>--0 THEN 70 

1510 IF INKEYC01-0 THEN LOCATE 81, 

18,yX:PRINT 81 ,CHR*<32 > :yyX=yX- 1 : I 

F yyX<-7 THEN yyX=7 

1520 IF INKEY<2>«0 THF.N LOCATE 81, 

18,yX:PRINT 81 ;CHR«C32> :yyX-yX+1 :I 

F yyX>»9 THEN yyX»8 

1530 LOCATE 81 , 1 8 , yyX: PRINT 81 , f I e 

che*:yX=yyX 

1540 IF INKEY (81=0 THEN ordreX»yX 

-6:G0T0 1560 

1550 GOTO 1480 

1560 CALL SBB03iCLS 81:LOCATE 81,2 

0,4:PRINT 81 , "FONCTION DE TRANSFER 

T":L0CATE 81 ,20, Si PRINT 81, STRING* 

(21,"-")iL0CATE 81,20,8 

1570 PRINT B1,"-passe-has":L0CATE 

81, 20, 3 i PRINT 81," -passe- haut":L0C 

ATE 81,10,1E:PRINT 81 , "changement 

1580 yX-B:yyX=yX:LOCATE 81,18,yX:f 

leche«=CHR*<2*6> i PRINT 81, f I eche* 

1590 IF INKEY*-"" THEN 1580 

1600 IF INKEYC79>»0 THEN 70 

1610 IF INKEY(0>=0 THEN LOCATE 81, 

18,yXiF'RINT 81,CHR»C32) :yyX=yX-1iI 

F yyX<-8 THEN yyX=8 

1620 IF INKEY<2>-0 THEN LOCATE 81, 

18,yX:PRINT 81 ,CHR*(32) iyyX = yXt1 I I 

F yyX>=9 THEN yyX=S . 

1630 LOCATE 81 , 18, yyX: PRINT 81, fie 

chat : yX=yyX 

1640 IF INKEY (3 ) -0 THEN typeX«yX- 

7:G0T0 1660 

1650 GOTO 138© 

1660 CALL 1BB03:CLS 81:L0CATE 81,2 

0,4:PRINT 81, "TYPE DE REP0NSE":L0C 

ATE 81,20,5:PRINT 81 ,STRING*< 15, "- 

"):L0CATE 81 ,20 , SlPRINT 81,"- repo 

use de Besse f " 1 LOCATE 81,20, SiPRIN 

T 81,"- reponse de Butter worth" :L0 

CATE 81 ,10,16 

1670 PRINT 81 , "changement de type 

1680 yX-~B:yyX = yX: LOCATE 81,18,yX:f 

leche*»CHR*(246> i PRINT 81 , f I eche* 

1630 IF INKEY*-"" THEN 1630 

1700 IF INKEY<73>-0 THEN 70 

1710 IF INKEY(0)=0 THEN LOCATE 81, 

1B,yX:PRINT 81,CHR»(32) :yyX=yX-1:I 

F yyX<-8 THEN yyX»8 

1720 IF INKEYC2>«0 THEN LOCATE 81, 

1B,uXiPRINT 81 ,CHR*(32) :yyX=yX*1 ll 



AMSTRAD 



F yyX>-3 THEN yyX-8 

1730 LOCATE 81 , 18,yyX:PRINT 81, fie 

che*:yX-yuX 

1740 IF INKEY < 3 ) -0 THEN reponseX- 

yX-7:CALL IBB03:G0T0 1770 

1750 GOTO 1630 

1760 ' aiguillage vers les sou 

s routines 

1770 ON ordreX GOTO 1780,1310,1840 

1780 ON t.ypeX GOTO 1730,1800 

1730 GOTO 1800 

1800 GOTO 2120 

1810 ON typeX GOTO 1820,1830 

1820 GOTO 2330 

1830 GOTO 2580 

1840 ON typeX GOTO 1850,1860 

1850 GOTO 2810 

1860 GOTO 3050 

1870 ' 

1880 ' PASSE-BAS 2eme ORDRE 

1890 ' 

1900 GOSUB 3860 1 DRAWR , -45:dirX-1 

:G0SUB 3450:M0V£R 20 ,0 iTAG lPRINT"C 

b";:M0VER -36,0: DRAW 0,-*5:DRAWR 

12,0 

1310 DRAWR -24,0 I MOVER 0, -SlPRINT" 

///";: MOVER -12, 105 I DRAWR -10,0: MO 

VER -60,0:dirX-0:G0SUB 3*00:MOVER 

-53,6iPRINT"R"; 

1920 MOVER -15,-6:0RAWR -20,0:M0VE 

R -60,0:G0SUB 3400:M0VER -53,6:PRI 

NT "R"i:MOVER -15,-6:0RAWR -20,0:M 

OVER -10,6 

1930 PRINT CHR*<2*6) ; :MOVER 32,-6: 

DRAWR 0,45:M0VER 0, 10: dir X-1 :GOSUB 

34S0:M0VER 20,10:PRINT "Ca";:TAGO 
FF:MOVER -36,0 

1340 DRAWR 0,60: BORDER 9: GOSUB 553 
0:0N reponseX GOTO 1950,2010 
1350 a*="PASSE-BAS 2eme ORDRE BESS 
EL":GOSUB 4100:WIN00W SWAP 1,0:CLS 
:CALL JBB03:L0CATE 1,3:PRINT "La r 
esistance R doit avoir une valeur 
comprise entre 4,7 et 10 k";:PRINT 

CHR»<191) 
1960 FOR iX-1 TO 2500 : NEXT:GOSUB 4 
250:r=res:G0SU6 4140:CLS 
ajustement 

<0>ui ou <N>on" 
1980 rep*-UPPER*( INKEY*): IF rep*-" 
" THEN 1980 ELBE IF rep*="0" THEN 
JumpX=2:G0T0 1330 ELSE JumpX-1:G0T 

2000 

1990 LOCATE 1,*: INPUT "tolerance d 
es composants desiree <1X ou 5X ) : " 
itolX:IF tolXOI AND tolXOS THEN 
CLS:G0T0 1330 

2000 ea-0.3076/<2»PI»fO«r) :cb»0.68 
08/(2«PI«fO«r) :cap-ca:GOSUB 5710:c 
a*=condo*:cap=cb: GOSUB 5710:cb*-co 
ndo*:G0T0 2060 

2010 a*="PASSE-BAS 2eme ORDRE BUTT 
ERW0RTH":G0SUB 4100:WIND0W SWAP 1, 
0:CLS:CALL »BB03:L0CATE 1,3:PRINT 
"La resistance R doit avoir une va 

1 eur comprise entre 4,7 et 10 k"j: 
PRINT CHR*<131) :F0R iX«1 TO 2500:N 
EXT:G0SUB 4250 : r-res : GOSUB 4140:CL 
S 

ajustement 

<0)ui ou <N>on" 
2030 rep*=UPPER*( INKEY*): IF rep*-" 
" THEN 2030 ELSE IF rep*="0" THEN 
jumpX=2:G0T0 2040 ELSE JumpX=1 : GOT 
2050 

2040 LOCATE 1,4:INPUT "tolerance d 
es composants desiree (1X ou 5X):" 
itolXlIF tolXOI AND tolXOS THEN 
CLS:G0T0 2040 

2050 ca-SOR<2)/<2*PI*ro»r) :cb=1/(S 
QR<2)*2*PI#fO*r) :cap-ca:GOSUB 5710 
:ca*-con do* :cap=cb: GOSUB 5710:cb*= 
condo* 

2060 CLS:F'RINT:PRINT " pour R- "( 
r/1000( "k" ; CHR*< 131 ) iSF'ACE*< 10) ; "C 
a- "!ca»jSPACE»(10)i"Cb» " ; cb» 
2070 LOCATE 64,3:PRINT CHR»<24)J" 

menu > [TAB] ";CHR»(24> 

2080 IF INKEY<6B)<>0 THEN 2080 ELS 
E saut1X=1 :G0T0 70 
2090 ' 

2100 ' PASSE-HAUT 2eme ORDRE 

2110 ' 

2120 GOSUB 3860:DRAWR 0, -20: dirX=1 

:G0SUB 3400:M0VER -4 , - 10 : TAG:PRINT 

"R" j : MOVER -8 , - 18: PRINT"b" ; : MOVER 

-4,-3* 



irX- 
2140 
10,- 
X-0: 
c": 

2150 
R -1 
- 6 : D 
SUB 
2160 
8,-1 



DRAUIR 0,-20:DRAWR 12,0:DRAUR 
0: MOVER 0, -5 : PR INT "///"';: MOVER 
,107:DRAUR -35,0: MOVER -10, Old 
0: GOSUB 3450 

MOVER -28,15:PRINT"C";:M0VER 
15:DRAWR -70,0: MOVER -10,0:dir 
GOSLIB 3450:M0VER -28, 15: PRINT" 

MOVER 10,-15:DRAWR -4S,0:M0VE 
0,6:PRINT CUR* <246> j : MOVER 32, 
RAUR 0,20:M0VER 0, 60: dirX-1 : GO 
3400 

MOVER -4,-8:PRINT"R"j:M0VER - 
B:PRINT"a"i:TAGOFF: MOVER -4,26 
:DRAWR 0,35: BORDER 3: GOSUB 5590: ON 

reponseX GOTO 2170,2220 
2170 a*=="PASSE-HAUT 2eme ORDRE BES 
SEL":G0SUB 4100:WIND0U SWAP 1,0:CL 
SlCALL JBE:03:L0CATE 1,3:PRINT "Le 
candensateur C doit avoir une vale 
ur comprise entre 4,7 et 10 nF"j:F 
OR iX-1 TO 280® I NEXT I GOSUB 4290:c- 
condo:G0SUB 41*0:01.8 
ajustement 

<0>ui ou <N)on" 
2130 rep*-UPPER* C INKEY* ): IF rep*=" 
" THEN 2190 ELSE IF rep*='"0" THEN 
Ju»pX==2:G0T0 2200 ELSE JumpX-1:G0T 
2210 

2200 LOCATE 1,4: INPUT "tolerance d 
es composants desiree MX ou 5X):" 
jtolXlIF tolXOI AND tolX<>3 THEN 
CLd:G0T0 2200 

2210 ra»>1.1017/<2*PI»fO»c):rb-1.46 
88/<2«PI«fO*c> :res=ra:GOSUB 5750:r 
Martll : res.= rh : GOSUB 5750 : rb»-res* 
:G0T0 2270 

2220 a*-"PASSE-HAUT 2eme ORDRE BUT 
TERW0RTH":G0SU6 4100:WIND0M SWAP 1 
,0:C1.S:CALL 4BB09:L0CATE 1,3:PRINT 
"Le condensateur doit avoir une V 
aleur comprise entre 4,7 et 10 nF" 
;:F0R iX-1 TO 2500:NEXT : GOSUB 4.230 
:c=eonclo:GOSUB 4140:CLS 
ajustement 

<0)ui ou <N)on" 
22*0 rep*-UPF'ER*<INKEY*) :IF rep*-" 
" THEN 22*0 ELSE IF rep*=="0" THEN 
JumpX«2:G0T0 2250 ELSE JumpX-1:G0T 
2260 

2250 LOCATE 1,4: INPUT "tolerance d 
es composants desiree <1X ou 5X):" 
;tolX:IF tolXOI AND tolXOS THEN 
CLSlGOTO 2250 

2260 ra-1/(S0R(2)»2»PI»f0*c):rb-S0 
R<2)/(2»PI«fO»c) :res-ra:GOSUB 5750 
;ra*«res*:res=rb: GOSUB 5750:rb*=re 
s* 

2270 C1.S:PRINT:PRINT " pour C- " 

iC»1Et09i"nF"iSPACE*(10) i"Ra= "|r« 
SjSPACEidO) j"Rb- "irb* 
2280 LOCATE 64,3:PRINT CHR*<24)|" 

menu > LTABy "jCHR*<24> 

2230 IF INKEY<68)<)0 THEN 2230 ELS 
E saut1X=1 :G0T0 70 
2300 I 

2310 ' PASSE-BAS DU 3eme ORDRE 

2320 ' 

2330 GOSUB 3330:DRAUR 0,-32:dirX-1 

:G0SUB 1050:M0VER 20 , : TAG :PRINT"C 

b"::M0VER -3G,0:DRAUR 0,-32:DRAUR 

12,0:DRAUR -2i,0 

2340 MOVER , -5: PRINT"///" ; :M0VER 

-12,74:DRAWR -10,0:MOVER -30,0:dir 

X»0:G0SUB 4000 I MOVER -27,25: PRINT" 

R"i 

2350 MOVER -1 1 , -25 : DRAWR -30,0:M0V 

ER -30,0:G0SUB 4000:M0VER -27,25:P 

RINT"R" J :M0VER - 1 1 , -25 : DRAWR -15,0 

:M0VER -15,6 

23E0 PRINT CHR*<246) ) I MOVER 64,-6: 

DRAWR 0,23:M0VER ,5 :dirX«1 :G0SUB 

4050: MOVER -20, 20: PRINT "Ca" i I MOVER 

4,-15 
2370 DRAWR 0, 28 i MOVER 164,-30:airX 
=0:G0SUB 4000IM0VER -27 ,25 :PRINT"R 
"';;M0VER 13 , -25: DRAWR 15,0: DRAWR 
,-42:dirX«1 

2380 GOSUB 4050:M0VER 20 ,0:F'RINT"C 
d"i:M0VER -3G,0:DRAWR 0,-42:DRAWR 
12,0:DRAWR -24,0:M0VER 0,-5:PRINT" 
///"i 

2330 MOVER -12, 34: DRAWR 20,0: DRAWR 
0,-15:DRAWR 0,60:DRAWR 60,-30:0RA 
WR -60,-30:M0VER 0,15:M0VER 5,5:PR 
INT "+": 



2*00 MOVER -i,23lPRINT "-"jsHOVER 
-13,0: DRAWR -20,0: DRAWR 0,20: DRAWR 

30,0: DRAWR 0,-38: DRAWR -10,0: DRAW 
R 25,0 

2410 MOVER 15,6:PRINT CHR*<246)j:T 
AG0FI-: BORDER 3: GOSUB 5530: ON repon 
seX GOTO 2420,2470 

2420 a*="PASSE-6AS 3eme ORDRE BESS 
EL":G0SUB *100:WIND0W SWAP 1,0:CLS 
:CALL 8BB03:L0CATE 1,3:PRINT "La r 
esistance R doit avoir une va I eur 
comprise entre 4,7 et 10 k";:PRINT 

CHR*<131 ):F0R iX-1 TO 2500:NEXT:G 
OSUB 4250:r-res:G0SUB *140:CLS 
ajustement 

<0>ui ou <N)on" 
2440 rep*«UPPER*( INKEY*): IF rep»=" 
" THEN 2440 ELSE IF rep* = "0" THEN 
JumpX=2:G0T0 2450 ELSE JumpX-1:G0T 
2460 

2*50 LOCATE 1,1:INPUT "tolerance d 
es composants desiree <1X ou 5X):" 
|tolX:IF tolXOI AND tolXOS THEN 
CLSlGOTO 2150 

2460 denom-2*PI*fO*r:ca-0.354B/den 
om : cb-0 . 4338/denom : cd-0 . 756/denom : 
cap-ca : GOSUB 571 : ca*-condo* : cap-c 
b : GOSUB 5710: cb*-condo* : cap-cd : GOS 
US 5710:cd*«eondo*:G0TG 2520 
2470 a*="PASSE-BAS 3eme ORDRE BUTT 
ERW0RTH":G0SUB 41 00: WINDOW SWAP 1, 
0:CLS:CALL SBB03:LOCATE 1, SlPRINT 
"La resistance R doit avoir une va 
leur comprise entre 4,7 et 10 k";: 
PRINT CHR*(131) :F0R iX-1 TO 2500 : N 
EXT:G0SUB 4250 :r=res : GOSUB 4140:CL 
S 
ajustement 

<0)ui ou <N>on" 
2430 rep*=UPPER»< INKEY*) : IF rep*=" 
" THEN 2480 ELSE IF rep*-"0" THEN 
JumpX=2:GOT0 2500 ELSE JumpX-1:G0T 
2510 

2500 LOCATE 1,4:INPUT "tolerance d 
es composants desiree <1X ou 5X ) : " 
;tolX:IF tolXOI AND tolX<>5 THEN 
CLS:G0T0 2500 

2510 denom=2wpI*f OKr :ca=2/denom:cb 
-0 t 5/denom:cd-1/denom:cap-ca: GOSUB 

571 O:ca*-condo*:cap=cb: GOSUB 5710 
:cb*=eondo*:cap-cd: GOSUB 5710:cd»- 
condo* 

2520 CLSiPRINT'ipRINT SPACE* < 15) | "p 
our R= ":r/1000;"k";CHR*(19D:PRIN 
T:PRINT SPACEK10) i"Ca= "(ca*:SPAC 
E*(15) ;"Cb= "(cb»jSPACE*<15) i "Cd= 
" jCd* 
2530 LOCATE 64,3:PRINT CHR*(24)J" 

menu > CTAB3 "jCHR»C2*> 

25*0 IF INKEYCE8>O0 THEN 25*0 ELS 
E saut1X-1:G0T0 70 
2550 ' 

2560 ' PASSE-HAUT DU 3eme ORDR 

E 

2570 ' 

2580 GOSUB 3830 : DRAWR 0,-23:dirX-1 

:G0SUB 4000:M0VER 20 ,0 : TAG :PRINT"R 

b";:M0VER -36, -30 : DRAWR 0,-30:DRAW 

R 12,0:DRAWR -24,0 

2530 MOVER 0, -5 : PRINT"///" ;: MOVER 

-12,34:DRAWR -30,0:M0VER -5,0:dirX 

-0:G0SUB 4050:M0VER -5 ,25 :PRINT"C" 

2600 MOVER -8,-25:DRAWR -55,0:M0VE 
R -5,0:GOSUB 4050:M0VER -5,25:PRIN 
T"C"j:M0VER -8,-25:DRAWR -50,0:M0V 
ER -15,6 

2610 PRINT CHR»C246>: :M0VER 83,-6: 
DRAWR 0,12:M0VER , 30:dirX=1 :G0SUB 
4000: MOVER -20 , 20: PRINT"Ra" ; :MOVE 
R 4,-20 

2620 DRAWR 0,1*:MOVER 164,-38:DRAW 
R 10,0:dirX='0:G0SUB 4050:M0VER -5, 
2S:PRINT"C": :M0VER -3,-25:DRAWR 25 
,0:DRAWR 0, -33:dirX»1 : GOSUB 4000 : M 
OVER 20,0:PRINT"Rd"::M0VER -36,-30 
: DRAWR 0,-40 

2630 DRAWR 12,0:DRAWR -24,0:M0VER 
0,-5: PR INT"///";: MOVER - 12, 1 1 4 :I)RA 
WR 20,0: DRAWR 0,-15:DRAWR 0,60:DRA 
WR 60, -30: DRAWR -60 , -30 : MOVER 0,15 
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FORMATION A 
L'ASSEMBLEUR PRATIQUE 



LA REVOLUTION 

Les micros, ci-apres nommes, ont 
deja herite d'un nombre de cours 
consequents dens les numeros ci- 
dessous deems. 

ZX 81 -> 55 56 61 66 71 76 61 66 

9195100105110114118122126 

1 30 1 34 1 38 

COMMODORE - 60 65 70 75 80 85 

90 95 99 104 109 114 118 122 126 

130 134 136 

ORIC - 57 62 67 72 77 82 87 92 96 

101 106 111 115 119 123 128 131 



CONTINUE I 

136 

AMSTRAD- 111 115 119123 127 

131 135 139 

APPLE - 58 63 68 73 78 83 88 93 
97 102 107 112 116 120 124 128 

132 135 139 

SPECTRUM - 112116 120 124 127 

132 136 

THOMSON -. 59 64 69 74 79 84 89 
93 98103108113117121 125129 

133 137 - 
MSX - 113 117 121 125 129 133 
137 



LANGAGE MACHINE SUR 
SPECTRUM 



Ah oui, au fait, le mots dernier, on 
avait dit qu'on se trafiquoterait un 
petit programme qui degenererait 
I'ecran aleatoirement, point par 
point, juste comme ca, histoire de 
rigoler un bon coup. La routine 
d'affichage d'un point, on a com- 
mence a en causer dans les cours 
precedents. Ben on va essayer de 
I'appliquer cette fois-ci, et e'est pas 
du gateau, croyez-moi. Euh.... 
Oubliez cette remarque, vous pour- 
riez commencer a baliser des le 
debut de ce cours. 

HASARD 

Mais voiia le probleme : faire deli- 
rer un ordinateur, e'est pas evident. 
Ces froides machines sont concues 
pour genercr des resultats tres 
stricts. Leur demander n'importe 
quoi, e'est plus pareil. Tendres uti- 
lisateurs de la tonction RND du 
basic, vous ne vous en 6tes sans 
doute jamais apercu,, mais RND 
n'est pas si aleatoire que pa. Alors, 
tant qu'on y est, on va s'introduire 
un petit remplacant a RND, parce 
que quand il s'agit d'aller vite, II ne 
suit plus du tout, le pauvre. Done : 

LD HL,(23670) 

LDDE,111 

ADD HL.DE 

LD (23670),HL 

LDC.L 

LDB.O 

RET 

QUEST CE QUI SE PASSE ? 

On prend deux octets de memoire 
et on y additionne quelque chose, 
n'importe quoi, ce qu'on veut, mais 
superieut a 100 et un peu nombre 



premier de preference (pour obtenir 
une variation marrante). On stocke 
ensuite le resultat dans les deux 
octets en question et on recupere 
I'octet faible de la manipulation 
(dans C dans notre exemple). 

Le choix de I'adresse 23670 ? C'est 
tout simplement I'emplacement de 
RAM utilise par RND pour ses tra- 
des a lui. Pourquoi se priver ? 

Ca donne un hasard pas trop hasar- 
deux dans I'absolu, mais largement 
suffisant pour des applications en 
Basic. 

Je ne sais pas si vous savez, mais 
PRINT USR d*une adresse de pro- 
gramme vous rend a I'ecran la 
valeur du registre double BC en 
decimal Alors vous pouvez tester 
I'efficacite du petit programme pre- 
sents par : 

5 LET i = 
10 READ a : IF a = 256 THEN 30 
20POKE40000 + i,a:LETi = i+1 : 
GOTO 10: DATA 42, 48, 117, 17, 
111. 0,25.34,46,117,6,0,77,201,256 
30 PRINT USR 40000 : GO TO 30 

On obtient, evidemrnent. des 
valeurs entre et 255, parce qu'on 
a mis B a pour obtenir un resultat 
a I'apparence aleatoire. Faites-en ce 
que vous voulez, ca peut toujours 
servir. 

Pour obtenir ce genre de resultat, 
il y a plus simple, me direz-vous 
(vous ne dites rien ? Mais si, 
voyons, faut intervenir. J'en vois 
encore un qui dort au fond de la 
salle). II suffit de recuperer la valeur 
du registre R, celui qui bouge tout 



le temps, par une instruction LD 
A.R. et de faire mumuse avec. Soit, 
mais vous savez ce qui se passe si 
on lit trop souvent, e'est-a-dire tres 
vite, ce registre (en assembleur, ca 
se produit sans qu'on le fasse 
expres) ? Votre machine n'explose 
pas, mais la valeur de ce registre n'a 
pas beaucoup change. Genant, 
n'est-il point ? 

Au fait, le registre R varie constam- 
ment parce qu'il contient I'octet fai- 
ble de I'adresse memoire a rafral- 
chir. La memoire vive du Spectrum, 
pour se rappeier de ce qu'elle con- 
tient, a besom d'etre solticitee fre- 
quemment (toutes les dix miltisecon- 
des a peu pres). Ces sollicitations, 
en r occurrence, sont produites par 
le microprocessor. II demande aux 
puces memoire ce qu'elles contien- 
nent, sans tenir compte de leur 
reponse (le goujat I), et ceci de 
facon transparente a I'utilisateur. 
Sauf le registre R. 

Dans le meme genre, quelques 
octets de RAM s'incrementent 
aussi, requliererneni mais moins 
rapidement que R, sans notre inter- 
vention. On en trouve par exemple 
a I'adresse 23672 (ou sont comp- 
ters les trames de I'ecran lors de 
leur affichage). Essayez done ce qui 
suit : 

10 PRINT PEEK (23672), PEEK 
(23673) : GO TO 10 



deux fois le meme resultat par cette ADD HL,DE 

m6thode, et apres tout, c'est ce LD E,(HL) 

qu'on cherchait, non ? INC HL 

LD D,(HL) ;on utilise la table 
EX DE,HL ;pour adresser 

On y arrive, voici la routine en PUSH HL 

assembleur : 



Application : 

Mais pour ce qu'on veut faire, rien 
de ce qu'on vient de voir n'est suf- 
fisant. Par ces methodes, on obtien- 
drait a I'ecran des representations 
tres rigides, quasi invariantes, des 
cartes de hasards foireux. Aussi va- 
t-on combiner. Reportez vous au lis- 
ting principal, a la sous-routine poin- 
ter par ['etiquette HAZARD. L'effet 
modulo et l'effet rafraTchissement 
sont melanges a souhait. II est pra- 
tiquemment impossible d'obtenir 



ORG 40000 



CALL HAZARD ;X au hasard 

POPHL 

PUSH AF ;le decalage 



CALL HAZARD ;un nombre de AND 7 ;du point dans I'octet 
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points 

LD B,A ;au hasard 
E0 PUSH BC ;sauve 
E1 CALL HAZARD 

LD L,A ;Y au hasard 

CP 192 ;est-il trop grand ? 

JR NC.E1 
E2 LD H.O 

ADD HL.HL 

LD DE.30000 



LD B,A est range dans B 

POPAF 

SRL A ;calcule la distance 

SRL A ;en octets 

SRL A ;du debut de ligne 

LD E,A ;au point (X,Y) 

LD D,0 

ADD HL.DE ;on ajuste I'adresse 

XOR A 

SCF 



E3 RRA 

DJNZ E3 .on prepare le masque 

OR (HL) ;et on le place 

LD (HL),A ;a son adresse 

POP BC 

DJNZ E0 ;le nombre de points ? 

RET ;llni 
HAZARD LD HL,(23670) 

LDA.R 

LDE.A 

ADD HL.DE 

ADD HL.DE 

LD (23670),HL 

LD A.L 

RET 

Attention, ce programme ne tourne 
pas sans la table generee par les 
lignes 5 a 20 du programme Basic 
qui suit. 

5DIMa(192): LET 1-1 

10 FOR n = TO 2 : FOR I - TO 

7: FOR p = 

TO 7 : LETa(i) » 16384 + 2048 * 

n + 32 * I + p * 32 * 8 : LET 

i = i + 1 : NEXT p : NEXT I : NEXT 

n 

20 FOR n - 1 TO 192 : LET e - 

INT (a(n)/256) : LET r - 256 * 

«a(n)/256)-e) : POKE 30000 + (n-1) 

* 2, r: POKE 30001 + (n-1) * 2, 

e : NEXT n 

30 LET i = 

40 READ a : IF a . 256 THEN GO 

TO 70 

50 POKE 40000 + i, a : LET i ■ i 

+ 1 : GO TO 40 

60 DATA 205, 119, 156, 71, 197, 

205, 119, 156, 111, 254, 192, 48, 

248, 38, 0, 41, 17, 48, 117, 25, 94, 

35, 86, 235, 229, 205, 119, 156, 225, 

245, 230, 7, 71, 241, 203, 63, 203, 

63, 203, 63, 95, 22, 0, 25, 175, 55, 

31,16,253, 182,119,193,16,206, 

201 , 42, 1 1 8, 92, 237, 95, 95, 22, 0, 

25, 25, 34, 118, 92, 125, 201, 256 

70 RANDOMIZE USR 40000 : CLS : 

GO TO 70 

Puis, celui-la, il a le langage 
machine integre. 

Allez* a la revoyure. Nicolas. 



■LANGAGE MACHINE SUR 



Le "X" fou a encore frappe. 

Vous vous rappelez du petit listing 
qui venait orner le bas de la page 
de notre cours du numero 129? 
Des malheureux ont tente de le 
recopier, anodinement, sur leur 
innocents MSX. Certains ont m§me 
ele jusqu'a en lancer I'execution. 
Sans savoir, juste comme ca, his- 
toire de dire. Les fous. 

Depuis ce fameux numero, nous 
nous demenons pour leur faire 
retrouver la paix interieure. Dans 
I'HHHHebdo 134, nous' avions 
meme tente un exorcisme. Nous 
avions pu ainsi identifier le demon 
Interruption. Mais tant que la 
lumiere n'aura pas ete faite sur le 
sort exact qu'il avait lance au Z60, 
et qui nous traumatise tous, nous 
lutterons. Nous continuerons de 
gratter les points faibles du listing 
par lequel il nous attaint : les REM 
qui parsemaient cette ignominie. 



Soit done le REM 6 : 

lei commence vraiment le pro- 
gramme. Les sauvegardes des 
registres dans la pile (vues en REM 
5), premieres actions menses par le 
processeur lors de i'execution de 
cette routine, ne sont en fait qu'une 
bete introduction, habituelle, que 
Con retrouve tres souvent (et sur 
toutes machines). 

Done, pour commencer, le Z60 va 
afficher un espace a I'ancien empla- 



cement du "X". Cela correspond 
aux trois lignes de programme, du 
REM 6 au REM 7. 
Placer un espace sur un caractere, 
c'est effacer ce caractere. Ca c'est 
evident. Mais d'aucuns se deman- 
deront sans doute pourquoi com- 
mencer par un effacement ? C'est 
parce qu'a i'ecran nous voulons 
obtenir un "X" laissant une trace 
d'espace et non un espace laissant 
une trace d'"X". II faut done, au sor- 
tir du programme, qu'a la position 
de I'ancien "X" ait ete place un 
espace et qu'un "X" ait ete affiche 
en une nouvelle position. 
EI6mentaire. 

Commencer par afficher le "X" 
aurait presents deux inconvenients : 

- Pendant de cours instants, il y 
aurait eu deux "X" a I'ecran (le 
temps que I'ancien soit efface), ce 
qui aurait donne un resultat moins 
agreable a I'oeil. C'est du detail, 



mais programmer en assembleur, 
c'est souhait er les meilleurs resutats 
possibles. 

- Nous aurions du utiliser au moins 
deux octets de plus pour les don- 
nees (pour travailler la nouvelle 
adresse sans abtmer I'ancienne). Et 
le programme aurait ete passable- 
merit plus complexe, long et foireux. 

Vous pouvez tout de meme, a litre 
d'exercice, et pour la comprenette, 
essayer de realiser ce mfime pro- 
gramme en le faisant commencer 
par I'affichage du "X". 

Voyons maintenant comment ca 
procede : 

Par LD HL,(POS), le double regis- 
tre HL est charge avec les deux 
octets de la zone des donnees con- 
tenant la derniere position d'affi- 
chage du "X". Le registre L sera 
charge avec I'octet d'adresse POS, 
le registre H avec I'octet d'adresse 
POS+1. Nous ne reviendrons 
jamais assez sur I'importance de 
I'ordre des donnees, poids faible, 
poids fort, pour une utilisation opti- 
misee du Z80. Le travail sur deux 
octets au lieu d'un en une seule 
operation n'est permis sans confu- 
sion qu'avec cette organisation. Et 
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puis notons aussi que des parenthe- 
ses, dans un listing d'assembleur 
Z60, sont plus que des decorations. 
LD HL.POS aurait charge HL avec 
I'adresse POS et non avec I'adresse 
CONTENUE par la memoire a 
I'adresse POS. 

Puis on place le caractere espace 
dans le registre A par LD A," "(pour 
ceux qui pinaillent, signalons que 
c'est la meme chose que LD A, 32 
ou LD A.20H). 

Et Ton declenche I'affichage du 
caractere contenu dans A a 
I'adresse contenue dans HL par un 
appel a la routine du MSX qui sert 
a ca, un CALL 4DH. Aller directe- 
ment 'vpoker' dans la memoire 
video ou faire appel a une routine 
d'affichage plus directe (par exem- 
ple cello dont I'adresse est indiquee 
a I'adresse 4EH) serait un non res- 
pect du 'standard MSX'. On risque- 
rait d'obtenir un programme qui ne 
tourne que sur la machine sur 
laquelle il a ete iealise. 
incompatible. 

La, maintenant, on a plus de "X" a 
I'ecran, alors il s'agirait de s'activer. 

REM 7: 

lei, nous allons calculer la nouvelle 
adresse d'affichage. En fait, il n'y a 
rien a dire que nous n'ayons deja dit 
sur cette partie du listing si ce n'est 
a propos du mnemonique ADD 
HL,DE. 

Vous vous rappelez de la presenta- 
tion des registres, DE pour un defa- 
cement, HL pour une adresse ? Ben 
ce mndmonique confirme. 

ADD HL,DE est un mnemonique 
d'addition tres pratique (parce qu'en 
16 bits) et tres employe. Addition 7 



Pas forcement : additionner un 
nombre negatif a un nombre posi- 
tif, c'est soustraire. Et ca c'est 
genial. Pour avancer POS d'un 
octet, on y additionnera 1, et pour 
le reculer d'un octet on y addition- 
nera -1 (-1 = FFFFH en complement 
a deux, mode de travail des mnemo- 
niques ADD). Cette technique per- 
met de n'avoir qu'un programme 
pour deux taches differentes. 

REM 8: 

Nous venons de faire varier 
I'adresse d'affichage. Modifions 
maintenant en consequence les 
octets stockant les coordonnees du 
"X", ceux qui servent pour les con- 
troles que nous verrons a partir du 
REM 9. 

Remarquez que la, on travaille a 
I'octet et non au mot (un mot c'est 
deux octets : 16 bits). Alors matez 
la technique : 

- On charge HL avec I'adresse de 
la source. 

- On charge A directement (grace 
aux parentheses) avec la 
destination. 

- Et on additionne ces deux valeurs 
a travers A, encore une fois par 
I'intermediaire de parentheses. 

- On n'a plus qu'a transvaser la des- 
tination, du registre A a son empla- 
cement en mdmoire. 

REM 9 : 

Qu'est-ce qui se passe ? On tape 
sur les bords du moniteur ? On peut 
le savoir par une lecture des coor- 
donnees du "X". 

Dissdquons done le premier test de 
ces coordonnees (les autres tests se 
feront exactement de la meme 
facon) : 



- On charge A avec la valeur de 
I'abscisse du 'X' par un LD A,(XR). 

- On compare cette valeur avec 1 , 
histoire de voir si Ton est a la limite 
gauche de I'ecran, par CP 1 . CP est 
un mnemonique qui compare son 
operande avec le registre A. II 
influence le registre F (registre des 
indlcateurs) comme I'aurait fait une 
soustraction a A de I'operande, et 
ce sans modifier A. Alors CP 1 met 
le bit Z de F a 1 si le resultat de At 
est sinon il le met a (vous avez 
remarque la contradiction : un 1 
pour un et vice versa. En fait, rien 
a cirer, vous verrez). 

- C'est pas bien grave parce que les 
mndmoniques qui utilisent cette 
influence sont tres explicites (1) 
(tiens un petit (1)). Justement en 
voiia un : JR NZ.E1. Ca veut dire 
sauter directement en E1 si la der- 
niere operation influencant les indi- 
cateurs n'a pas eu pour resultat. 
JR NZ, c'est pour Jump Relative No 
Zero : saut relatif si non zero. 

Aller, un petit Equivalent Basic de 
CP 1, JRNZ.E1 : 

IF A= 1 THEN GOTO E1 ELSE con- 
tinue normalement le programme. 

C'est clair maintenant ? Si XR est 
a 1, on va modifier les valeurs de 
variation de I'adresse et des coor- 
donnees en consequence (pour les 
relations exacts de causes a effets, 
se reporter au numero 133). 

(1) On s'arrete la mais on vous pro- 
met que des le debut du prochain 
cours, on s'arrangera pour rendre 
aussi clair que possible ces condi- 
tionnements de mndmoniques. 

Nicolas Bourdin, au nez et a la 

barbe de Jean-Claude Paulin 

qu'etait malade ce jour-la. II a la 

turista, le pauvre. 



33 





LES RITA 
MITSOUKO 



Andy - Un Solr U n Chien - Bad Days 
Maxl 45t. (Virgin). 



ous avez remarqu6, ils se 
font appeier "les" Rita Mit- 
souko. Sans doute Cathe- 
rine Ringer en avait-elle 
marre de se taire traitor de 
Tari... Bon, a part ca, on se 
demandait bien ce que 
"les" Mitsouko altaient nous bricoler a 
Londres avec le producteur vedette Tony 
Visconti. Eh bien, qu'on se rassure, ils sont 
toujours aussi branques, aussi decales, 



MiTSOl 






"bad days 



aussi totalement dans leur trip original. 
Signe indeniable du dGrapage de calbasse 
dont font toujours preuve nos hurtuberlus : 
Catherine, sujette a I'lnfluence du milieu 
etranger dans lequel ©lie baignait pendant 
I'enregistrement, ne parvlent pas a repri- 
mer une pointe d'accent anglais quand etle 
chante francais... Cette "fine" remarque 
faite, H taut bien dire que "Andy" est un 
morceau absolument irresistible et drdte. 
"Les" Rita evitent de nous refaire le plan 
tango a la "Marcia BaTIa", ilsdonnent plu- 
tfit du c6te de chez Kid Creole, mais sans 
affectation, avec un nature! desarmant. Nul 
doute, ce sera le must des pistes de danse, 
cet ete. Quant a "Un soir Un Chien", c'est 
une histoire bien tordue et completement 
gdniale, que je vous laisse decouvrir. 
Et sur "Bad Days", Catherine se prend 
pour Alan Vega, avec I'accent anglais que 
les Francais n'oublient jamais de prendre, 
quand ils chantent en anglais. Moi, j'vous 
I'dis, c'est genial. Ouais ! 



PIERRE 
VASSILIU 

Toucouleur 45L (Yaba/Phonogram) 



epuis le temps qu'il donne 
dans la chanson, on sait 
Vassiliu capable du meilleur 
comme du pire. Je vous 
rassure tout de suite, il nous 
offre ici, le meilleur : "Tou- 
couleur", melodie lascive 
aux evocations d'Afrique. Et quand Vas- 




EDITO 



N'oubliez pas : 

le 21 juin, c'est la fete de la Musique. 

Et vive la cacophonie organisee ! 

BEN 



ment vivantes et populates, funk conta- 
gieux, valses nasillardes ou slows lanci- 
nants, le temps ethiopien a de quoi nous 
surprendre." Et de ce fait, c'est grace a 
cet ancien fondateur de ('organisation de 
spectacles poitevine "I'Oreille est Hardie", 
qu'on va pouvoir apprecier les delices 
d'une musique jusqu'a present ignores en 
France, alors qu'elle est capable de rem- 
plir les 20.000 places d'un stade ethiopien. 
Sans doute pour la premiere fois en 
Europe, la firme Crammed Discs lance sur 
le marche un disque de musique moderne 
ethiopienne. Huit morceaux interpretes en 
langue amharique par I' extraordinaire 
chanteur Mahmoud Ahmed. Une musique 
envoutante, oil les tendances orientates 
d'enchevfitrent a celles du jazz, ou la 
rythmique sophistiquee de I'art egyptien 
rencontre les percussions d'Afrique Cen- 
trale, ou la volx du chanteur s'elance vers 
les aigus comme celle d'un muezzin, tout 
en stimulant le corps des danseurs au fre- 
missement extatique de "I'Eskeusta". 
Et pour juger de I'impact scenique de la 
musique ethiopienne moderne, il ne fau- 
dra pas manquer les concerts de chan- 
teurs Mahmoud Ahmed (I'anclen) et 
Neway Debebe (le jeune), tous deux 
accompagnes par le Roha Band, le groupe 
le plus populaire d'Ethiopie. (25/6 : Poi- 
tiers, 26/6 : festival de saint-Denis, 20 et 
22/7 : Festival d'Avignon). 




siliu chante I'Afrique, ce n'est pas pour 
faire mode. II la chante d'autant mieux qu'il 
s'y est fait adopte sur la cote du Senegal, 
oii il passe plus de la moitie de sa vie, 
depuis quelques annees. Autant il nous 
embarque dans son charme poetique avec 
"Toucouleur", autant "Les Crapules du 
Crepuscule' ' et sa galerie de portraits debi- 
tee en "talk-over" sur un funk frenettque, 
nous ravit par la justesse de son humour 
grincant. Aucun doute, Vassiliu tient la 
grande forme cette annee. 



MUSIQUE 
ETHIOPIENNE : 

UNE INCROYABLE 
RICHESSE ! 



L image de I'Ethiopie 

M qu'a contribue a diffu- 
J/ ser le Band Aid, aux 
yeux des masses occi- 
dentales, est celle d'un 
pays desertique et 
archaique, voue a une 
misere tant physique qu'intellectuelle. S'il 
paraft difficile de desavouer 
le projet humanitaire engage par les stars 
des pays sur-nourris de ('hemisphere 
Nord, on est en droit de s'interroger sur 
les raisons qui leur ont fait occulter la 




Mahmoud Ahmed 



Neway Debebe 






richesse cuitureiie de I'ancienne Abyssi- 
nie. Les vedettes-au-grand-cceur (et au 
portefeuille abondamment garni) ont mou- 
line leur soupe pop, sans se soucier, a 
aucun moment, de ('existence d'une musi- 
que extraordinaire et unique en son genre, 
au sein meme du pays qu'elles preten- 
daient sauver du desastre. Le 23 mat 85, 
dans les colonnes de Liberation, Francis 
Falceto concluait un reportage dans les 
milieux muslcaux d'Adis-Abeba en ces ter- 
mes : "L'Ethiopie ne saurait se resumer 
a la famine, a ses camps de refugies ou 
a ses combats qui dechirent les confins de 
I'anclen empire. II perdure la-bas une cul- 
ture d'une siderante vitalite et qui reve de 
s'exporter, de tenter 1'aventure qu'a connu 
le reggae jamalcain. Musiques etonnam- 



URBAN SAX 



Du bas des marches menant 
au Sacre-Cceur, jusqu'en 
haut des pelouses, la foule 
est compacte. Presque 
impossible de se frayer un 
chemin a travers elle Un 
murmure interrogatif la par- 
court. Elle semble tendue, comme dans 
I'attente d'une apparition. On est le 29 juin 
85. Les dernieres lueurs du soleil viennent 
de disparattre. Progressivement, les buis- 
sons s'eclairent comme autant de brasiers, 
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en meme temps qu'une rumeur s'eleve a 
la maniere d'un grand frisson se frayant 
un chemin a travers tout I'espace de la col- 
line abrupte. Les sons enflent, se reper- 
cutent et se repandent au-dessus des mil- 
liers de visages restes bouche bee. On 
percoit maintenant des groupes fantoma- 
tiques. agites de mouvements saccades et 
disposes symdtriquement de part et 
d'autre des paliers menant a la basillque. 
Ils n'ont pas de visage, mais a chaque 
mouvement, des lueurs de spectacles se 
reftetent sur leurs amples tenues plasti- 
fiees. Ils brandissent devant eux de grands 
appendices dores d'ou s'echappent les 
sons, tantot en tongues plaintes, tantdt en 
petits cris repetes, se melant en un conti- 
nuum extatique et lancinant. Enveloppee, 
faconnee par les ondes sonores comme 
une masse liquide et mouvante, la foule 
se laisse irresistiblement glisser vers les 
profondeurs etollees de la voOte noc- 
turne... Voyage au gre de respirations 
glougloutantes... Rupture... Hurlements 
stridents... Retour des peurs et des angois- 
ses... Manipulation sonore... Toujours les 
grappes de mutants qui s'agitent... Et la 
volute du son se reconstruit, se reunifie, 
gonfle en un tourbillon a I'architecture 
babylonienne. . jusqu'a I'apotheose finale. 
Les premieres fusees d 'artifice eclatent au- 
dessus des tetes.. festival de couleurs 
vives et fugitives sur le fond bleu de nuit. 
L'ovation sera longue et fournie. Puis, 
dans un dernier flash, on verra les colon- 
nes de saxos-mutants devaler en courant 
les pentes du Sacre-Cceur 
De tels spectacles, seul Urban Sax est 



KINGK 




KING KURT 



Second Album (Stiff/ Musidisc) 



ahouou ! Je vois deja 
saliver les amateurs a 
I 'idee de la bonne 
tranche de psycho- 
billy qu'ils vont pou- 
voir se coller entre les 
tympans et des raouts 
endiables qu'ils vont pouvoir se payer a 




bondir comme des furieux. Pas de pro- 
blems, les six cingles de K.K. leur en filent 
pour leur fric avec ce "Second Album". 
Pour situer le taux de folie de I'ensemble, 
ca demarre sur un "Nervous Breakdown" 
ultraspeede au ddbut de la face 1, et 
I'energie du dehre ne descend plus 
jusqu'au "Alcoholic Rat", qui cloture la 
face 2. Autant dire que King Kurt ne nous 
laisse pas une minute de repit avec son 
rock'n'roll hysterique. On finit meme par 
se demander comment ces gars-la arrivent 
a tenir la distance, quand on se retrouve 
aussi creve apres I'ecoute de leur disque, 
qu'apres avoir fait une serie de cinquante 
pompes en claquant des mains... 



capable de les donner. Parce qu'il est 
avant tout un "groupe d 'intervention" pou- 
vant se modeler a n'importe quelle situa- 
tion, selon I'environnement ou le contexts 
social dans lequel il opere. Depuis sa pre- 
miere apparition scenique on ne peut plus 
formelle, il y a moins de dix 
ans, Urban Sax est devenu 
une entile mouvante, recla- 
mes aux quatre coins 
d'Europe. Urban Sax, a 
seduit I'ltalie, parcouru les 
canaux de Venise en gondo- 
les, visite les toils, les galeries 
et les places de Milan, de 
Bologne, de Bruxelles, de 
Nancy, de Freiburg, rappele 
la memoire d' Adolphe Sax 
(inventeur du saxophone) a 
Utrecht. Urban Sax a intrigue 
toutes sortes de gens, sim- 
ples passants ou melomanes. 
laissant descendre, au bout 
de cordes, barytons et tenors 
le long de facades betonnees 
ou les faisant voler au-dessus des tetes, 
suspendus a des Wins Urban Sax, a 
mflme fini par faire bouffer son micro a 
Leon Zitrone, un soir de juin 82 au chateau 
de Versailles, lorsqu'en mondiovision 
vibrerent ses trompes sur les eaux du bas- 
sin de Neptune, alors que les chefs d'Etats 
des pays industrialists etaient attables 
pour diner... Juches sur des chariots ele- 
vateurs ou meme sur des chasses-neiges, 
les sax-mutants ont affronts tous les 
temps : depuis celui des vaches maigres 
et du diable par la queue, jusqu'a celui, 
heureux, de la manne des puissants. 



Association 1901, aujourd'hui devenue 
une sorte d'ANPE du saxophonists, Urban 
Sax ne doit son existence qu'a une suite 
de hasards, ainsi qu'a I'ingenieuse acuite 
artistique de son organisateur-concepteur, 



Gilbert Artman. En 76, alors qu'il est lea- 
der et batteur du groupe Lard Free, Art- 
man qui compose par ailleurs de la musi- 
que modale a ('architecture faite de struc- 
tures sonores modulaires et modulables, 
saisit ('occasion de faire un disque de ces 




compositions. Elles sont interpretees par 
un ensemble de seize saxophonistes. Mais 
I'idee de presenter cette musique sur 
scene n'intervient qu'en juin 77, quand les 
organisateurs du festival "Bas-rock" le lui 
reclament. II faudra attendre encore pres 
d'un an avant qu'il ne developpe le con- 
cept de mise en scene et de spatialisation 
des masses sonores. De seize saxos, la 
formation passe a vingt et un, puis a vingt- 
quatre, en meme temps qu apparaft le 
"look mutant" des interpretes. Et Urban 
Sax prend sa veritable dimension en 79, 
lors de I 'inauguration du Forum des Hal- 
les, reunissant cinquante-quatre partici- 
pants (30 saxos, 8 choristes, 3 quatuors 
guitare/vioton/vibraphone/ percussions, 2 
claviers, 1 chanteuse et 1 danseur), tous 
munis d'emetteurs-recepteurs permettant 
a Artman de dinger chaque module de 
son. Grace a ce systems, toutes les pos- 
sibility de spatialisation de la musique 
sont offertes. Une formule developpee 
depuis avec bonheur. 
Urban Sax et les pyrotechniciens d'Ephe- 
mere aimeront la "Fete sur I'Eau" sur le 
lac du Bois de Vincennes, le 28 juin, a 
22h30. Ne les ratez pas, c'est gratuit. 



INFOS TOUT POIL 

* Les parisiens peuvenl a present commarxler. cassettes et compacte discs par telephone. Phone Record 
assure la livraison dans la demi-joum6e et lacture la course 20F, quetpue soft le nombre de commandes. Pour 
essayer, composez le 48 78 33 45. 

* Senso est le notn du nouveau groupe fonae par Frandt Darcel avec Frederic Renaud, son ancien compa- 
gnon guitanste au sein de Marquis de Sade. Apres son expedience reussie de producteur avec Etienne Daho 
et son echec malheureux avec Octobre, on est en droit d'aflendre le meilleur de Darcel. 

* Plus actif que jamais, Johnny Kallyday fait appei. cette armee, au talent "populaire" de J.J. Goldman pour 
la realisation de son prochain album. Parviendra-f-il a faire oubttet "Rock'n'floH Attitude", le tres beau disque 
ecrit et realise par Michel Berger ? 

* Arpes environ quinze annees d'une carriere en marge de sentiers battus du show business, Gerard Manset 
a decide de mettre un terme a ses activites de chanteur, ne supportant decidement plus les contratntes de 
ce metier. 
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EDITO 



Francais, Francaises, 
un attentat contre le bon gout national 
commis le samedi 21 juin a 20h35 sur FR3. 
L'abominable Pierre Desproges, 
l'anti-France personnifiee, 
perorera pendant une heure 
sur le theme Pierre qui mousse ne deroge jamais. 

Bombyx. 

UN TALENT 



LE DIABLE 
AU CORPS 



Film de Andrzej Zulawski (1981) avec 
Isabelle Adjani, Sam Neill et Heinz 
Bennent. 

Marc (Neill) rentre chez lui a Berlin apres 
une tongue absence. II promet a Anna 
(Adjani) de rester el de s'occuper de Bob, 
leur enfant. Or Anna a refait sa vie avec 
Heinrich (Bennent), le couple se dispute 
et Anna claque la pone. Lorsqu'elle revient 
preparer les repas de Bob, les cris et les 
coups volant bas. 

Heinrich rencontre Marc et lui avoue son 
inquietude, Anna a disparu. lis mettent une 
agence de detectives sur le coup, lis la 
retrouvent dans un appartement qu'elle 
partage avec un monstre. Un, puis deux 
detectives sont tues au cours de leur intru- 
sion dans 1'appartement. Marc donne 
I'adresse d'Anna a Heinrich, mais celui-ci 
parvient a s'echapper de 1'appartement 
bien que blesse. 

Zulawski evoque la lutte du bien et du mal, 
un theme qu'il partage avec un autre slave 
Tarkovski. Andrzej T. le Russe use et 
abuse de la lenteur, il off re une meditation 
hypnotique pour ne pas dire soporifique. 
Andrzej Z. le Polonais alterne la violence 
des images et des mots : une hysterie de 
la camera, des acteurs, du texte a la limite 
de la confusion. En tous cas une agres- 
sion maniteste vis-a-vis du spectateur dont 
les nerfs craquent rapidement devant cet 
etalage gratuit de convulsions. 

Un film monstrueux done, a prendre avec 
des pincettes. Prix d' interpretation femi- 
nine a Cannes pour le monstre Adjani. 

Diffusion le samedi 28 a 23h00 sur Canal 



PRENOM CARMEN 



Film de Jean-Luc Godard (1983) avec 
Jacques Bonnafe, Maruschka Detmers, 
Myriam Rousael et Jean-Luc Godard. 



Carmen (Detmers) vient demander a son 
oncle Jean (Godard), cineaste fatigue hos- 
pitalise dans une clinique, de lui prefer son 
appartement afin d'y tourner un film. Plus 
tard. Carmen et ses amis attaquent une 
banque. Au cours de la fusillade, Joseph 
(Bonnafe), un gendarme, tombe sous son 
regard de feu. Fusille par I'amour, il 
s'enfuit avec elle. 

Refugies dans la villa de I'oncie Jean, Car- 
men et ses afficionados preparent un tour- 
nage dans un grand hotel, un simulacre 
au cours duquel, ils enleveront un riche 
homme d'affaires. 

Lion d'or a Venise en 83. Pour une fois, 
Godard gratifie les spectateurs d'un sem- 
blant d'histoire, celle de Carmen qu'il 
detourne bien evidemment a son profit. 
Moins difficile a suivre que d'habitude, le 
film revela une actrice a la plastique explo- 
sive et au talent prometteur. Dans ce 
maelstrom d'images et de musiques, 
Godard fait tomber certains tabous visuels 
(sequence de la salle de bains). 

Diffusion le vendredi 27 a 23h00 sur A2. 



BUFFET 
FROID 



QUE LES GHOS SALAIRES LEVENT 
LES DOIGTS 



Film de Pierre Granier-Oeferre (1982) 
avec Jean Polret, Daniel Auteuil, Michel 
Piccoli et Marie Laforet. 

Jean-Ba (Auteuil) travaille dans un cabinet 
d'assurances dont le patron. Monsieur 
Jceuf (Poiret, un d£ifce) a invite ses 
employes dans sa maison de campagne 
pour le week-end. Les y accueilient la 
femme et les filles Jceuf, plus que bienveil- 
lantes envers leurs notes. Premiere gri- 
mace, seuls les gros salaires restent a cou- 
cher sur place, les "petits" sont pries 
d'aller voir si les draps sont propres a 
I'auberge du coin. 

Deuxieme rictus, le patron prepare une 
"charrette" de licencies. II devoile ses 
intentions le dimanche apres-midi entre la 
poire et le fromage. Entre le fromage (gar- 
der son job) et les poires futures, une 
seance de chaises musicales orchestree 
par le froid mage (Poiret). 

Merci Patron, merci beaucoup, on a bien 
rit ... jaune. Heureusement, le scenario tres 
malin dont I'humeur noire et devastatrice 
n'epargne personne evite le naufrage total. 
Plus qu'une satire, une caricature outree 
qui retombe dans les mecanismes du ihea- 
tre de boulevard. Dommage, la prestation 




de Poiret, machiavelique a souhait, meri- 

tait mieux. 

Diffusion le dimanche 22 a 20h35 sur 

TF1. 



Film d'Ettore Scola (1980) avec Jean- 
Louis Trintignant, Marcello Mastroianni, 
Vlttorio Gassman, Ugo Tognazzi, Stefa- 
nla Sandrelli et Serge Reggiani. 

Amis depuis longtemps, ces quinquage- 
naires romains se retrouvent regulierement 
sur la terrasse d'Amedeo, le plus riche 
d'entre eux. Amedeo (Tognazi) produit des 



MONSTRE 



LA KERMESSE HEROIOUE 



Film de Jacques Feyder (1936) avec 
Francoise Rosay, Jean Murat, Andre 
Alerme, Louis Jouvet, Delphin et Alfred 
Adam. 

Dans les Flandres en cet ete 1616, la ville 
de Boom prepare sa kermesse (et youp la 
..) lorsqu'elle apprend I'arrivee imminente 
d'un detachement de I'armee espagnole. 
Pris d'un courage sans faille et d'une 
determination inebranlable, le bourgmes- 
tre, suivi en son exemple par tous les nota- 
bles court organiser la resistance du... fond 
de son lit. Ole. 

Peu porta sur la hallebarde, il craint en 
ouvrant ses portes a I'envahisseur de pas- 
ser pour un collaborates aux yeux de ses 
concitoyens. Dans un intense effort d'ima- 
gination, il trouve la solution : passer pour 
mort. Devant le courage des males, Mme 
la bourgmestre et les bourgeoises vont au- 
devant du due Jean lui offrir les cles de la 
ville. 

Accueillie avec le sourire, conviee au ban- 
quet funeraire, la soldatesque s'amuse 
avec les convives et passent ta nuit chez 
elle dans la joie et la bonne humeur de 
tous les participants (a I'exception de quel- 
ques maris 'coinces' dans les armoires ou 
ils percoivent des pamoisons a foison). 
Foin de I'honneur, la ville est sauve et la 
farce endiablee. 

Une fresque spectaculaire d'une beaute 
plastique inoubliable et d'un humour 
feroce. Photographie et decor de Rubens, 




L 'Affaire Dominici 



Vermeer, Jordaens et consorts, texte de 
Moliere, Shakespeare et Spaak, costumes 
historiques : un grandissime classique du 
cinbche, trop rare a la television. 

Diffusion le dimanche 22 a 22h30 sur 
FR3. 



LAFFAIRE DOMINICI 



Film de Claude Bernard-Aubert (1973) 
avec Jean Gabin, Victor Lanoux, Paul 
Crauchet, Daniel Ivernel, Genevieve 
Fontanel, Gerard Darrieu et Gerard 
Depardieu. 

Une petite fille et ses parents, des British, 
sont venus en pelerinage dans le beau 
pays provencal en cet ete 1 953. Le fils de 
la famille, un parachutiste, fut tue lors des 
combats a la Liberation. Les 3 British cam- 
pent au bord de la route a la limite des 
champs de la famille Dominici. 

Au cours de la nuit une fusillade eclate qui 
se conclut par la decouverte des 3 cada- 
vres le lendemain matin. L'enquete reduit 



le cercle des suspects au clan Dominici 
Les fils Dominici arretes et interroges se 
contredisent, accumulent les maladresses 
et finissent par denoncer leur pere. Qui 
avoue, puis se retracte. Et puis les fils 
reviennent sur leur temoignage. Bref, la 
justice patauge. 

Cre vin' diou, le pape Gabin nous fait tout 
le film en oeil-de-biche (malheur, ton- 
dresse, dignite) et en coup de gueule (Qui 
ce qui domine ici ?). II campe avec un 
naturel eblouissant le paysan ruse, obstine 
qui preserve avec force ses sentiments et 
ses secrets de famille. Avec en prime la 
rencontre de deux geants du cinoche. 
Gabin et Depardieu, I'un debutant, I'autre 
au sommet de son art. 

Sans appuyer une these plus particuliere- 
ment qu'une autre, Bernard Aubert 
reconstitue avec minutie et honnetete les 
multiples meandres d'une affaire judiciaire 
qui dura 10 ans et qui fut comparable a 
l'aff aire Villemin. 

Diffusion le lundl 23 a 20h35 sur FR3. 
Photo FR3. 



films, Luigi (Mastroianni) ecrit des articles, 
Enrico (Trintignant) des scenarios, Sergio 
vivote a la tele et Mario (Gassman) se fos- 
silise a la chambre des deputes au sein du 
Parti Communiste. La cinquantaine, Age 
des bilans, des illusions enfuies, est pro- 
pice a la derision, un art qu'ils pratiquent 
avec maestrta. 

Prompts a se moquer d'eux-memes, nos 
chers amis cachent leur amertume derriere 
des sourires de rigueur. lis ont le sentiment 
d'avoir trahi leurs esperances reciproques. 
Leurs grands dessins humains, politiques, 
profession nels se sont englues dans une 
routine mediocre. Heureusement, lesfem- 
mes, les leurs ou celle du voisin, illuminent 
la Terrasse de leur espoir et de teur deter- 
mination. Pourront-ils partager cette der- 
niere chance ? 

Long et bavard (160 mn), ce constat impi- 
toyable sur la generation d'apres-guerre 
merite votre attention. La Terrasse, lieu 
clos d'un ballet rituel marque le chant du 
cygne de la comedie italienne, le constat 
derisoire de la decadence d'une couche 
sociale en panne d'idees. de sentiments, 
a bout de souffle. De ('humour avec beau- 
coup d'amertume. 

Diffusion le jeudi 26 juin a 20h35 sur 
FR3. , _ 

La Terrasse 




LES PERTURBATEURS 



Film de Pierre Richard (1970) avec 
Pierre Richard, Bernard Blier, Maria 
Pacome, Paul Preboiat, Marie-Christine 
Barrault et Romafn Boutellle. 

Pierre Malaquet (Richard) est embauche 
par I'agence de publicite Guiton grace a 
I'intervention de sa maman (Pacome) 
laquelle accorde ses favours a Mr Guiton 
(Blier). Gaffeur impenitent, Malaquet mul- 
tiplie les initiatives malencontreuses qui 
non seulement font fuir les clients mais en 
plus provoquent des scandales publics. 

Le comble est attaint lorsqu'il provoque 
une bataille de rue a coups d'eeufs frais 
puis effraye la France entiere avec une pub 
sur un dentifrice. Heureusement, il tombe 
amoureux de Lisa (Barrault) la secretaire 
de Mr Guiton, ce qui le distrait de son tra- 
vail. 

Premier film de Pierre Richard, il contient 
toutes les promesses et tous les defauts 
d'un premier long metrage. Le talent comi- 
que de I'acteur, salue comme une revela- 
tion a I'epoque, est indeniable meme s'il 
s'inspire beaucoup de celui de Jerry Lewis 
(apres tout, une excellente reference). Au 
fil de ses films, les qualites se sont usees 
remplacees par des tics fatigants. Une 
reconversion dans des r6les dramatiques 
serait la bienvenue. 

Diffusion le mardi 24 a 20h35 sur A2 



REFLETS DANS UN OEIL DOR 



Film de John Huston (1967) avec Mar- 
lon Brando, Elisabeth Taylor, Brian 
Keith et Julie Harris. 

Un camp militaire americain dans le sud 
desEtats-Unisen 1948. Le major Weldon 
Penderton demande au soldat Williams de 
s'occuper de la pelouse. Leonora Pender- 
ton (Taylor), sa femme, effectue de ton- 
gues promenades a cheval avec son 
amant le colonel Langdon. Une situation 
qui indiffere le major qui fait chambre a 
part avec Leonora depuis longtemps. 
Quelques jours plus tard, au cours d'une 
balade en foret, Leonora, Weldon et Lang- 



don apercoivent Williams montant a cru un 
etalon et nu comme un ver. Plus tard dans 
la nuit, Mme langdon apercoit une ombre 
se glisserdans le pavilion des Penderton. 
Foiie de jalousie, elle est persuadee qu'il 
s'agit de'son mari. 

En fait, il s'agit de Williams, venu contem- 
pler la belle Eleonora que le sommeil rend 
encore plus desirable. Mais Walden I'a vu. 
Que va-t-il faire ? 

Un quintette infernal qui s'epie les uns les 
autres. Le mari, impuissant au desir noue 
par le silence, la femme qui assouvit avec 
insolence sa sexualite, I'amant a I'incons- 
cience naturelle et son epouse, digne et 
nevrotique. Dans ce quatuor stabilise, le 
soldat, libre comme un cheval sauvage, 
vient perturber le bel ordonnancement. 

Une esthetique du coup d'ceil vole, une 
atmosphere de clandestinite, une escalade 
de regards derobes traduisent a merveille 
I'intensite des passions, L'interpretation 
eblouissante contribue puissamment au 
charme un peu sulfureux du film. 

Diffusion le vendredi 27 a 21h00 sur 
Canal + . 

Photo Cine-Plus, la librairie de cinema 
de ceux qui ont I'aeil, 2, rue de L'Etolle, 
75017 Paris, tel : 42. 67. 51. 52. 
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LE LOGICIELDE LA SEMAINE 



KNIGHTMARE 

de KONAMI pour MSX 



Je me demande comment ils 
font, chez Konami, mais si on 
s'amusait a faire des statisti- 
ques, on s'apercevrait rapidement 
que ce sont eux qui reviennent le 
plus souvent dans cette rubrique. 
Cette fois-ci, ils reviennent avec un 
soft pas pique des hannetons du 
tout. Ce logiciel s'appelle Knight- 
mare. Retenez bien ce nom a con- 
sonance typiquement japonaise, il 
va sOrement faire parlor de lui dans 
pas longtemps. 



L'histoire se passe en cinquante 
avant Jesus-Christ. Toute la Gaule 
est occupee par I'envahisseur 
romain. Toute ? Non, seul un petit 
village resiste encore et toujours a 
I'envahisseur... Et c'est dans ce 
contexte et cette ambiance de polar 
noir que noire heros, Popolon 
(parole, j'ai pas invente ce nom, 
c'est vraiment le sien !), le vaitlant 
guerrier, tente de delivrer sa bien- 
aimee Aphrodite, prisonniere du 
Chateau du Cauchemard (notez au 



passage que l'histoire de la Gaule 
et tout ca, c'etait uniquement pour 
situer htstoriquement Taction, et ca 
n'a aucun rapport avec le reste de 
l'histoire). 

Pour ce faire, il utilisera les pouvoirs 
mysterieux des joyaux magiques 
qu'Aphrodite, se prenant sans doute 
pour le Petit Poucet, a judicieuse- 
ment semes derriere elle lors de son 
enlevement. Et c'est justement pen- 
dant son voyage que nous retrou- 
vons le petit Popolon. Le joueur doit 
le guider dans sa tongue entreprise, 
en lui faisant eviter si possible tou- 
tes les bestioles qui viennent lui bar 
rer la route, a savoir des chauves- 
souris, des grosses boules noires, 
des demons et des mechants sor- 
ciers qui ne font rten qu'a venir 
I'embeter. 

Arme au debut de son seul arc et de 
quelques fleches, il pourra changer 
d'arme en tirant sur les joyaux 
sacres, qui se feront un plaislr de se 
tranformer en epee, en boomerang, 
en fleches enflammees, ou en ftam- 



Kjonami 



r^i 




mes (sans les fleches). De meme, 
d'autres joyaux lui donneront soit de 
la vitalite, soit un regain de vitesse, 
son un bouclier, ou encore une 
invulnerabilite temporaire. 
Enfin, il pourra egalement, en pas- 
sant sur des pastilles soigneuse- 



ment eparpitlees sur son chemin, 
soit detruire tous les ennemis pre- 
sents a I'ecran, soit arreter le mou- 
vement des vilains, soit gagner une 
vie supplementaire. 
Et ne croyez surtout pas que tout 
ceci rende le jeu trop facile, bien au 
contraire : si cela n'existait pas, ce 
serait carrement injouable, tene- 
ment c'est dur i 

Le graphisme est absolument 
genial, ('animation extraordinaire, et 
en plus, lorsqu'on joue, on est tota- 
lement supporte par une muslque 
ires jolie et bien faite, a laquelle 
viennent se superposer des brulta- 
ges tres realist.es. 
Le tout est disponible en cartouche, 
comme le veut la tradition de chez 
Konami. 

Bref, c'est LE logiciel pour MSX qu'il 
faut absolument posseder, c'est 
celui qui a reussi a detrdner le cele- 
bre Ping-Pong du meme editeur, 
d'ailleurs {je vous I'avais bien dit 
qu'en cas de statistiques il revien- 
drait souvent, ceiui-la...). 
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LE RETOUR DE B.J. (EIDERSOFT) 250FD 

SPOOK (EIDERSOFT) 250FD 

IMPEC (L0GIS0FT) 190F O 

PROJECT PLANNER (SINCLAIR) 490F D 

BARON ROUGE (IAB0CHR0ME) 250FD 

GWENDOLINE (LAB0CHR0ME) 250FD 

COSMOS (TALENT) 250FD 

KNIGHT-FLIGHT (REALTIME SOFTWARE) 250FD 



J. IN 3D LAND (EIDERSOFT) 250F □ 

QUB0IDS (SINCLAIR) 250 FD 

BOUNDER (SINCLAIR) 250F D 

SUPERT00LKIT (CARE ELECT.) 590 FD 

3D SLIME (DATAUNK) 250F □ 

QL FLIGHT SIMULATOR (MICRODEAL) 385FD 

EXTENSIONS : 

LECTEUR DE DISQUETTE 3'5 P0UCES 2500F □ 

INTERFACE PARALLELE 590F D 

CABLE MANEnEDE JEU 120FD 

MANETTE DE JEU QL 220FD 

CABLE IMPRIMANTE SERIE /RS 232 195FD 

EXTENSION 512 K (MIRACLE) 1595 F D 

BIBLIOGRAPHIE : 

ROM DU OL (LOGISOFT) 195 FD 

ARCHIVE (EDIMICR0) 135FD 

ABACUS-QUILL-EASEL (EDIMICR0) 135FD 

GUIDE PRATIQUE DU QL (EDIMICR0) 135F D 

SUPPORTS : 

MICRO DISQUETTES VIERGES 39FD 



BON DE C0MMANDE 



Nom Prtnom . . 

Adresse 

Code Postal Vllle 

Tel 



Expedition gratuire du catalogue de logiclels 

Participation express recommanae jusqu'Q 5 kg : 30 F 

LA REGLE A CALCUL 65 Bd St-Gemuln 

BP 300 75228 Paris Cedex 05 

Tel. : 43.25 68 88 Telex : 220 064 F/1303 RAC 

Llvralson des pradults dlsponlbles sous 8 jours, 
parking gratuii Maubert-Logrange 



